@@ -267,6 +267,7 @@ parseBlock = do
267267 res <- blockElements <|> para
268268 trace (take 60 $ show $ B.toList $ runF res def)
269269 return res
270+ where para = fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
270271
271272blockElements :: PandocMonad m => MuseParser m (F Blocks)
272273blockElements = choice [ mempty <$ blankline
@@ -414,10 +415,6 @@ paraUntil end = do
414415 let p = fmap (f . B.para) $ trimInlinesF $ mconcat l
415416 return (p, e)
416417
417−para :: PandocMonad m => MuseParser m (F Blocks)
418−para =
419− fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
420−
421418noteMarker :: PandocMonad m => MuseParser m String
422419noteMarker = try $ do
423420 char '['