From cadcf62ff39d4bec569622592b1a970714b66d0f Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 5 Feb 2018 16:15:52 +0300
Subject: [PATCH] Muse reader: move para definition into blockElements

---
 src/Text/Pandoc/Readers/Muse.hs | 5 +----
 1 file changed, 1 insertion(+), 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 '['