Muse reader: move end-of-line parsing to paraUntil

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 2ea4b1dd5..00123120d 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -259,7 +259,7 @@ parseBlocks =
     blockStart = do first <- blockElements
                     rest <- parseBlocks
                     return $ first B.<> rest
-    paraStart = do (first, rest) <- paraUntil ((mempty <$ eof) <|> (blankline >> blockStart))
+    paraStart = do (first, rest) <- paraUntil ((mempty <$ eof) <|> blockStart)
                    return $ first B.<> rest
 
 parseBlock :: PandocMonad m => MuseParser m (F Blocks)
@@ -410,13 +410,13 @@ paraUntil end = do
   indent <- length <$> many spaceChar
   st <- museInList <$> getState
   let f = if not st && indent >= 2 && indent < 6 then B.blockQuote else id
-  (l, e) <- someUntil inline $ try end
+  (l, e) <- someUntil inline $ try (manyTill spaceChar eol >> end)
   let p = fmap (f . B.para) $ trimInlinesF $ mconcat l
   return (p, e)
 
 para :: PandocMonad m => MuseParser m (F Blocks)
 para =
-  fst <$> paraUntil (try (eof <|> (blankline >> void (lookAhead blockElements))))
+  fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
 
 noteMarker :: PandocMonad m => MuseParser m String
 noteMarker = try $ do