git.iko.soy/typeable/pandoc
on master help sign in
Man reader: raise parse error if we don't get through whole input.
446790eJohn MacFarlane
src/Text/Pandoc/Readers/Man.hs+1−1
compare with master
unifiedsplit
@@ -122,7 +122,7 @@ lexMan = many (lexComment <|> lexMacro <|> lexLine <|> lexEmptyLine)
122
122
123parseMan :: PandocMonad m => ManParser m Pandoc
123parseMan :: PandocMonad m => ManParser m Pandoc
124parseMan = do
124parseMan = do
125− bs <- many parseBlock
125+ bs <- many parseBlock <* eof
126 meta <- stateMeta <$> getState
126 meta <- stateMeta <$> getState
127 let (Pandoc _ blocks) = doc $ mconcat bs
127 let (Pandoc _ blocks) = doc $ mconcat bs
128 return $ Pandoc meta blocks
128 return $ Pandoc meta blocks