diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 32195d859..11419b15f 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -144,17 +144,12 @@ rawLaTeXBlock = do toks <- getInputTokens snd <$> ( rawLaTeXParser toks - (skipMany1 (try - (skipMany (whitespace <|> newlineTok) - *> (macroDef (const ()) - <|> void (controlSeq "makeatletter" <|> - controlSeq "mateatother"))) - <|> + (macroDef (const mempty) <|> do choice (map controlSeq ["include", "input", "subfile", "usepackage"]) skipMany opt braced - return mempty)) blocks + return mempty) blocks <|> rawLaTeXParser toks (void (environment <|> blockCommand)) (mconcat <$> many (block <|> beginOrEndCommand))) |