diff options
-rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 12 |
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 |