Man reader: allow .SS to have blank contents.
commit2843ee960f76be5bb8eeee01c31e502912770e36
authorJohn MacFarlane <jgm@berkeley.edu>
dateFri 2 Nov 2018, 23:38 (8 years ago)
parentbcfc660
src/Text/Pandoc/Readers/Man.hs+1−1
@@ -419,7 +419,7 @@ parseHeader :: PandocMonad m => ManParser m Blocks
419419parseHeader = do
420420 ControlLine name args _ <- mmacro "SH" <|> mmacro "SS"
421421 contents <- if null args
422− then lineInl
422+ then option mempty lineInl
423423 else return $ mconcat $ intersperse B.space
424424 $ map linePartsToInlines args
425425 let lvl = if name == "SH" then 1 else 2