@@ -332,9 +332,8 @@ para = do
332332 let f = if st /= ListItemState && indent >= 2 && indent < 6 then B.blockQuote else id
333333 fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
334334 where
335− endOfParaElement = lookAhead $ endOfInput <|> newBlockElement
336− endOfInput = try $ skipMany blankline >> skipSpaces >> eof
337− newBlockElement = try $ blankline >> void blockElements
335+ endOfParaElement = lookAhead $ try (eof <|> newBlockElement)
336+ newBlockElement = blankline >> void blockElements
338337
339338noteMarker :: PandocMonad m => MuseParser m String
340339noteMarker = try $ do