@@ -640,8 +640,6 @@ verbatimEnv = do
640 rest <- getInput
640 rest <- getInput
641 return (r,rest)
641 return (r,rest)
643−-- | Parse any LaTeX environment and return a string containing
644−-- the whole literal environment as raw TeX.
645rawLaTeXBlock :: GenParser Char ParserState String
643rawLaTeXBlock :: GenParser Char ParserState String
646rawLaTeXBlock =
644rawLaTeXBlock =
647 (rawLaTeXEnvironment <|> (snd <$> withRaw blockCommand)) >>= applyMacros'
645 (rawLaTeXEnvironment <|> (snd <$> withRaw blockCommand)) >>= applyMacros'