aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-03-12 14:51:44 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-03-12 14:51:44 +0300
commitbf16a9c78a3e56ac713631c46a34a065e9f9df93 (patch)
tree7db1fdd6750a73da428da7f284e33b099e089896 /src/Text/Pandoc/Readers
parentc3fbc492c8795c0cd92f29f69d01819e8dccec93 (diff)
downloadpandoc-bf16a9c78a3e56ac713631c46a34a065e9f9df93.tar.gz
Muse reader: make parseBlocks similar to parseBlocksTill
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index c8868b20d..bee4ae4d6 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -243,10 +243,10 @@ directive = do
parseBlocks :: PandocMonad m
=> MuseParser m (F Blocks)
parseBlocks =
- try parseEnd <|>
- try blockStart <|>
- try listStart <|>
- try paraStart
+ try (parseEnd <|>
+ blockStart <|>
+ listStart <|>
+ paraStart)
where
parseEnd = mempty <$ eof
blockStart = do first <- header <|> blockElements <|> emacsNoteBlock