From 446790e95b8cb913750f879a9152d8191be7e1ce Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 20 Oct 2018 10:55:16 -0700
Subject: Man reader: raise parse error if we don't get through whole input.

---
 src/Text/Pandoc/Readers/Man.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3