Muse reader: make parseBlocks similar to parseBlocksTill
commitbf16a9c78a3e56ac713631c46a34a065e9f9df93
authorAlexander Krotov <ilabdsf@gmail.com>
dateMon 12 Mar 2018, 14:51 (9 years ago)
parentc3fbc49
src/Text/Pandoc/Readers/Muse.hs+4−4
@@ -243,10 +243,10 @@ directive = do
243243parseBlocks :: PandocMonad m
244244 => MuseParser m (F Blocks)
245245parseBlocks =
246− try parseEnd <|>
247− try blockStart <|>
248− try listStart <|>
249− try paraStart
246+ try (parseEnd <|>
247+ blockStart <|>
248+ listStart <|>
249+ paraStart)
250250 where
251251 parseEnd = mempty <$ eof
252252 blockStart = do first <- header <|> blockElements <|> emacsNoteBlock