From ca4a61a348efcdcb3418935f45f152c291ec75a0 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sun, 4 Feb 2018 19:19:55 +0300 Subject: Muse reader: simplify listItemContents' with sepBy1 --- src/Text/Pandoc/Readers/Muse.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Text') 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 -- cgit v1.2.3