aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs6
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