From 02b33a7d63ed2c930deda358c226031a42b10249 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 20 Oct 2018 10:25:50 -0700
Subject: Man reader: handle lines with just one period.

---
 src/Text/Pandoc/Readers/Man.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index ecde31b9f..21325eb4f 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -267,11 +267,12 @@ lexMacro :: PandocMonad m => ManLexer m ManToken
 lexMacro = do
   char '.' <|> char '\''
   many spacetab
-  macroName <- many1 (letter <|> oneOf ['\\', '"', '&'])
+  macroName <- many (letter <|> oneOf ['\\', '"', '&'])
   args <- lexArgs
   let joinedArgs = unwords $ fst <$> args
 
       tok = case macroName of
+              ""     -> MComment ""
               x | x `elem` ["\\\"", "\\#"] -> MComment joinedArgs
               "B"    -> MStr (joinedArgs, singleton Bold)
               "BR"   -> MMaybeLink joinedArgs
-- 
cgit v1.2.3