aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Roff.hs6
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