aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-20 10:55:16 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-20 10:55:16 -0700
commit446790e95b8cb913750f879a9152d8191be7e1ce (patch)
tree421b77ffe06849626c96a3c479942a792f52bd59 /src/Text
parentbccfb1177f93c7cdf79d0f9dc2087866db16d053 (diff)
downloadpandoc-446790e95b8cb913750f879a9152d8191be7e1ce.tar.gz
Man reader: raise parse error if we don't get through whole input.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Man.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 1f8e3bf1e..d081a5752 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -122,7 +122,7 @@ lexMan = many (lexComment <|> lexMacro <|> lexLine <|> lexEmptyLine)
parseMan :: PandocMonad m => ManParser m Pandoc
parseMan = do
- bs <- many parseBlock
+ bs <- many parseBlock <* eof
meta <- stateMeta <$> getState
let (Pandoc _ blocks) = doc $ mconcat bs
return $ Pandoc meta blocks