diff options
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 6062328f0..183580fce 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -308,7 +308,7 @@ lexComment = do try $ string ".\\\"" many Parsec.space skipMany $ noneOf "\n" - char '\n' + eofline return mempty lexMacro :: PandocMonad m => RoffLexer m RoffTokens @@ -451,7 +451,7 @@ lexConditional = do -- n means nroff mode lexNCond :: PandocMonad m => RoffLexer m RoffTokens lexNCond = do - char '\n' + newline many1 spacetab lexGroup <|> manToken @@ -631,7 +631,7 @@ spaceTabChar = do return [RoffStr [c]] lexEmptyLine :: PandocMonad m => RoffLexer m RoffTokens -lexEmptyLine = char '\n' >> return (singleTok MEmptyLine) +lexEmptyLine = newline >> return (singleTok MEmptyLine) manToken :: PandocMonad m => RoffLexer m RoffTokens manToken = lexComment <|> lexMacro <|> lexLine <|> lexEmptyLine |