aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2010-12-30 22:05:19 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2010-12-30 22:05:19 -0800
commitb05e739c6dcc33866c6e34017778f50da2692a8a (patch)
treecdcafb6c93e391409ef3320b075d5979589f7f32 /src
parentd6f28af9cbde4c1db6f91eb7c5d15881ccb822f0 (diff)
downloadpandoc-b05e739c6dcc33866c6e34017778f50da2692a8a.tar.gz
LaTeX reader: Allow ignored comments after \end{document}.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 561038081..659382772 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -128,9 +128,7 @@ parseLaTeX :: GenParser Char ParserState Pandoc
parseLaTeX = do
spaces
blocks <- try (processLaTeXPreamble >> spaces >> environment "document")
- <|> many block
- spaces
- eof
+ <|> (many block >>~ (spaces >> eof))
state <- getState
let blocks' = filter (/= Null) blocks
let title' = stateTitle state