From 2843ee960f76be5bb8eeee01c31e502912770e36 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 2 Nov 2018 23:38:39 -0700
Subject: Man reader: allow .SS to have blank contents.

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

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 9884ff8fb..fa5ffbdfa 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -419,7 +419,7 @@ parseHeader :: PandocMonad m => ManParser m Blocks
 parseHeader = do
   ControlLine name args _ <- mmacro "SH" <|> mmacro "SS"
   contents <- if null args
-                 then lineInl
+                 then option mempty lineInl
                  else return $ mconcat $ intersperse B.space
                              $ map linePartsToInlines args
   let lvl = if name == "SH" then 1 else 2
-- 
cgit v1.2.3