diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 2 |
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 |