aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-19 16:24:30 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-19 16:24:30 -0700
commit7a3380381cf29a07fdce0d9f733c78119901cdda (patch)
tree7900a336d45420fcb753fd69b750c5f862054299 /src/Text/Pandoc
parent574f9250a795f7baf7a470613b41bd6ff1b3b683 (diff)
downloadpandoc-7a3380381cf29a07fdce0d9f733c78119901cdda.tar.gz
Man reader: Nicer looking "skipped content" report.
Just give the macro name, which users will recognize, rather than the internal token.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Man.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index f8f984562..77f8d42ec 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -561,5 +561,7 @@ parseSkipMacro :: PandocMonad m => ManParser m Blocks
parseSkipMacro = do
pos <- getPosition
tok <- mmacroAny
- report $ SkippedContent (show tok) pos
+ case tok of
+ MMacro mkind _ -> report $ SkippedContent ('.':mkind) pos
+ _ -> return () -- shouldn't happen
return mempty