diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-18 23:51:38 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-18 23:54:13 -0700 |
| commit | e9c422649df5504ab58616a51e30671af23265a0 (patch) | |
| tree | be1572cecb05829210447cce54a637b662d49346 /src | |
| parent | e15b5b360fdc892274acdae1631b27e966a6d397 (diff) | |
| download | pandoc-e9c422649df5504ab58616a51e30671af23265a0.tar.gz | |
Man reader: use report instead of logMessage.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 876c876b7..3aab375ab 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -463,7 +463,7 @@ parseSkippedContent = do onToken :: PandocMonad m => ManToken -> ManParser m () onToken (MUnknownMacro mname _) = do pos <- getPosition - logMessage $ SkippedContent ("Unknown macro: " ++ mname) pos + report $ SkippedContent ("Unknown macro: " ++ mname) pos onToken _ = return () strToInlines :: RoffStr -> Inlines @@ -592,4 +592,8 @@ parseList = do -- In case of weird man file it will be parsed succesfully parseSkipMacro :: PandocMonad m => ManParser m Blocks -parseSkipMacro = mmacroAny >> mempty +parseSkipMacro = do + pos <- getPosition + tok <- mmacroAny + report $ SkippedContent (show tok) pos + return mempty |