diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-04 19:19:55 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-04 19:19:55 +0300 |
| commit | ca4a61a348efcdcb3418935f45f152c291ec75a0 (patch) | |
| tree | e0fefb784bd38dcb581194760ddd9b6c046942ad | |
| parent | 5439e29dd9d897c0c65bc7f9f126038ca36475cb (diff) | |
| download | pandoc-ca4a61a348efcdcb3418935f45f152c291ec75a0.tar.gz | |
Muse reader: simplify listItemContents' with sepBy1
| -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 |