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

Muse reader: simplify listItemContents' with sepBy1

Browse source
This commit is contained in:
Alexander Krotov 2018-02-04 19:19:55 +03:00
parent 5439e29dd9
commit ca4a61a348
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/Muse.hs
View file

@ -454,10 +454,8 @@ withListContext p = do
return parsed
listItemContents' :: PandocMonad m => Int -> MuseParser m (F Blocks)
listItemContents' col = do
first <- try $ withListContext parseBlock
rest <- many $ try (skipMany blankline >> indentWith col >> withListContext parseBlock)
return $ mconcat (first : rest)
listItemContents' col =
mconcat <$> withListContext (parseBlock `sepBy1` try (skipMany blankline >> indentWith col))
listItemContents :: PandocMonad m => MuseParser m (F Blocks)
listItemContents = do