diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 00123120d..147b0731b 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -267,6 +267,7 @@ parseBlock = do res <- blockElements <|> para trace (take 60 $ show $ B.toList $ runF res def) return res + where para = fst <$> paraUntil (try (eof <|> void (lookAhead blockElements))) blockElements :: PandocMonad m => MuseParser m (F Blocks) blockElements = choice [ mempty <$ blankline @@ -414,10 +415,6 @@ paraUntil end = do let p = fmap (f . B.para) $ trimInlinesF $ mconcat l return (p, e) -para :: PandocMonad m => MuseParser m (F Blocks) -para = - fst <$> paraUntil (try (eof <|> void (lookAhead blockElements))) - noteMarker :: PandocMonad m => MuseParser m String noteMarker = try $ do char '[' |