From 7a3380381cf29a07fdce0d9f733c78119901cdda Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 19 Oct 2018 16:24:30 -0700
Subject: Man reader: Nicer looking "skipped content" report.

Just give the macro name, which users will recognize,
rather than the internal token.
---
 src/Text/Pandoc/Readers/Man.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3