aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-11-02 23:38:39 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-11-02 23:38:39 -0700
commit2843ee960f76be5bb8eeee01c31e502912770e36 (patch)
tree4396ea20c48061653905564e7a2211b9d8e19dba /src/Text
parentbcfc66092a3eb0501e8be2295cfe27a059586f34 (diff)
downloadpandoc-2843ee960f76be5bb8eeee01c31e502912770e36.tar.gz
Man reader: allow .SS to have blank contents.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Man.hs2
1 files changed, 1 insertions, 1 deletions
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