Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Roff reader: improve handling of groups.

Browse source
This commit is contained in:
John MacFarlane 2019-09-05 07:01:07 -07:00
parent 0e31483d43
commit 75f6af5c12
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/Roff.hs
View file

@ -522,10 +522,8 @@ lexGroup = do
groupstart groupstart
mconcat <$> manyTill manToken groupend mconcat <$> manyTill manToken groupend
where where
groupstart = try $ string "\\{\\" >> newline groupstart = try $ string "\\{" <* optional (try (string "\\\n"))
groupend = try $ optional (char '.' >> many spacetab) >> groupend = try $ string "\\}"
string "\\}" >> (lexLine <|> lexEmptyLine)
-- could be comment
lexIncludeFile :: PandocMonad m => [Arg] -> RoffLexer m RoffTokens lexIncludeFile :: PandocMonad m => [Arg] -> RoffLexer m RoffTokens
lexIncludeFile args = do lexIncludeFile args = do