aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Man.hs12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 86f5b1bc5..9cffb10e8 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -155,13 +155,18 @@ parseBlock = choice [ parseList
, parseDefinitionList
, parseBlockQuote
, parseTitle
+ , parseNewParagraph
, parsePara
- , parseSkippedContent
, parseCodeBlock
, parseHeader
, skipUnkownMacro
]
+parseNewParagraph :: PandocMonad m => ManParser m Blocks
+parseNewParagraph = do
+ mmacro "P" <|> mmacro "PP" <|> mmacro "LP" <|> memptyLine
+ return mempty
+
eofline :: Stream s m Char => ParsecT s u m ()
eofline = void newline <|> eof
@@ -299,7 +304,7 @@ lexMacro = do
"\\\"" -> return mempty
"\\#" -> return mempty
"de" -> lexMacroDef args
- x | x `elem` [ "P", "PP", "LP", "sp"] -> return $ singleTok MEmptyLine
+ "sp" -> return $ singleTok MEmptyLine
_ -> resolveMacro macroName args
where
@@ -479,9 +484,6 @@ parseTitle = do
modifyState $ \st -> st{ metadata = adjustMeta $ metadata st }
return mempty
-parseSkippedContent :: PandocMonad m => ManParser m Blocks
-parseSkippedContent = mempty <$ memptyLine
-
linePartsToInlines :: [LinePart] -> Inlines
linePartsToInlines = go