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