aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs10
1 files changed, 1 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index ba5676619..b5cb5ef9d 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -648,15 +648,7 @@ verbatimEnv = do
return (r,rest)
rawLaTeXBlock :: GenParser Char ParserState String
-rawLaTeXBlock =
- (rawLaTeXEnvironment <|> (snd <$> withRaw blockCommand)) >>= applyMacros'
-
-rawLaTeXEnvironment :: GenParser Char ParserState String
-rawLaTeXEnvironment = try $ do
- controlSeq "begin"
- name <- braced
- let addBegin x = "\\begin{" ++ name ++ "}" ++ x
- addBegin <$> (withRaw (env name blocks) >>= applyMacros' . snd)
+rawLaTeXBlock = snd <$> withRaw (environment <|> blockCommand)
rawLaTeXInline :: GenParser Char ParserState Inline
rawLaTeXInline = do