Muse reader: avoid parsing newline after paragraph twice

Removed lookAhead from blankline, so it is consumed.

1 files changed, 3 insertions, 5 deletions

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 63dcac122..4f4300a63 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -373,12 +373,10 @@ para = do
  indent <- length <$> many spaceChar
  st <- museInList <$> getState
  let f = if not st && indent >= 2 && indent < 6 then B.blockQuote else id
- res <- fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
- manyTill spaceChar eol
- return res
+ fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
  where
-   endOfParaElement = lookAhead $ try (eof <|> newBlockElement)
-   newBlockElement  = blankline >> void blockElements
+   endOfParaElement = try (eof <|> newBlockElement)
+   newBlockElement  = blankline >> void (lookAhead blockElements)
 
 noteMarker :: PandocMonad m => MuseParser m String
 noteMarker = try $ do