From 9defc2545dfc8246f7bc24292f1274ef51dbdd87 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 26 Oct 2018 21:50:19 -0700 Subject: Roff tokenizer: allow eof in some places we allowed only newline. --- src/Text/Pandoc/Readers/Roff.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text') 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 -- cgit v1.2.3