From 6b553c2e2204d82a627847679bf56db062f1750a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 21 Oct 2018 12:53:26 -0700
Subject: Man reader: Moved handling of P, PP, LP to parser phase.

---
 src/Text/Pandoc/Readers/Man.hs | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'src/Text/Pandoc/Readers/Man.hs')

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
 
-- 
cgit v1.2.3