diff options
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 6 |
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 |