diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 8 |
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 |