diff options
author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-12 14:51:44 +0300 |
---|---|---|
committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-12 14:51:44 +0300 |
commit | bf16a9c78a3e56ac713631c46a34a065e9f9df93 (patch) | |
tree | 7db1fdd6750a73da428da7f284e33b099e089896 /src/Text/Pandoc/Readers | |
parent | c3fbc492c8795c0cd92f29f69d01819e8dccec93 (diff) | |
download | pandoc-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.hs | 8 |
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 |