diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 10:55:16 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 10:55:16 -0700 |
| commit | 446790e95b8cb913750f879a9152d8191be7e1ce (patch) | |
| tree | 421b77ffe06849626c96a3c479942a792f52bd59 /src/Text | |
| parent | bccfb1177f93c7cdf79d0f9dc2087866db16d053 (diff) | |
| download | pandoc-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.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 |