aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-10-05 18:31:48 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-10-05 18:31:48 +0300
commit659cce8442ee8ba89000b8f499f46a9bbead9cda (patch)
tree37131be8ac1cf0f79ce3b514a5ea62d679643b11 /src/Text/Pandoc/Readers
parent7cfce586f6ef6e97934c48f8871741aa0e8379dc (diff)
downloadpandoc-659cce8442ee8ba89000b8f499f46a9bbead9cda.tar.gz
Muse reader: make bulletListUntil similar to definitionListUntil
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 39d835af7..7dc2f0c2a 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -570,8 +570,7 @@ bulletListUntil :: PandocMonad m
bulletListUntil end = try $ do
indent <- getIndent
guard $ indent /= 0
- (items, e) <- bulletListItemsUntil indent end
- return (B.bulletList <$> sequence items, e)
+ first (fmap B.bulletList . sequence) <$> bulletListItemsUntil indent end
museOrderedListMarker :: PandocMonad m
=> ListNumberStyle