summaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-02-04 19:19:55 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-02-04 19:19:55 +0300
commitca4a61a348efcdcb3418935f45f152c291ec75a0 (patch)
treee0fefb784bd38dcb581194760ddd9b6c046942ad /src/Text
parent5439e29dd9d897c0c65bc7f9f126038ca36475cb (diff)
Muse reader: simplify listItemContents' with sepBy1
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 4e1bb95ec..1d4b9cc89 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -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