diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 10 |
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 |