diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-05 18:31:48 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-05 18:31:48 +0300 |
| commit | 659cce8442ee8ba89000b8f499f46a9bbead9cda (patch) | |
| tree | 37131be8ac1cf0f79ce3b514a5ea62d679643b11 /src/Text/Pandoc | |
| parent | 7cfce586f6ef6e97934c48f8871741aa0e8379dc (diff) | |
| download | pandoc-659cce8442ee8ba89000b8f499f46a9bbead9cda.tar.gz | |
Muse reader: make bulletListUntil similar to definitionListUntil
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
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 |