aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Man.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-28 11:40:15 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-28 11:40:15 -0700
commit8de8313ca10c80cd417a05657a905d37c9331de3 (patch)
treedba6b065aa2d25f0afdf9acf8a8cf2fc02506eb8 /src/Text/Pandoc/Readers/Man.hs
parent2d785c1e370c521f37a85d6b9bee974e053183be (diff)
downloadpandoc-8de8313ca10c80cd417a05657a905d37c9331de3.tar.gz
Man reader: .PP in code blocks as blank line.
Diffstat (limited to 'src/Text/Pandoc/Readers/Man.hs')
-rw-r--r--src/Text/Pandoc/Readers/Man.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 0c587d4b7..87c39a4b9 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -389,6 +389,7 @@ parseCodeBlock = try $ do
codeline = do
tok <- mtoken
case tok of
+ MMacro "PP" _ _ -> return $ Just "" -- .PP sometimes used for blank line
MMacro mname args pos -> do
(Just . query getText <$> handleInlineMacro mname args pos) <|>
do report $ SkippedContent ('.':mname) pos