diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 4c7b8499f..5ba5a28b9 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -522,10 +522,8 @@ lexGroup = do groupstart mconcat <$> manyTill manToken groupend where - groupstart = try $ string "\\{\\" >> newline - groupend = try $ optional (char '.' >> many spacetab) >> - string "\\}" >> (lexLine <|> lexEmptyLine) - -- could be comment + groupstart = try $ string "\\{" <* optional (try (string "\\\n")) + groupend = try $ string "\\}" lexIncludeFile :: PandocMonad m => [Arg] -> RoffLexer m RoffTokens lexIncludeFile args = do |