Muse reader: move para definition into blockElements

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 '['