diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 995a3ae9e..27d5922a0 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -302,17 +302,17 @@ divTag = do (attrs, content) <- parseHtmlContentWithAttrs "div" parseBlock return $ B.divWith attrs <$> mconcat content -verseLine :: PandocMonad m => MuseParser m String +verseLine :: PandocMonad m => MuseParser m (F Inlines) verseLine = do line <- anyLine <|> many1Till anyChar eof let (white, rest) = span (== ' ') line - return $ replicate (length white) '\160' ++ rest + let s = replicate (length white) '\160' ++ rest + parseFromString' (trimInlinesF . mconcat <$> many inline) s verseLines :: PandocMonad m => MuseParser m (F Blocks) verseLines = do lns <- many verseLine - lns' <- mapM (parseFromString' (trimInlinesF . mconcat <$> many inline)) lns - return $ B.lineBlock <$> sequence lns' + return $ B.lineBlock <$> sequence lns verseTag :: PandocMonad m => MuseParser m (F Blocks) verseTag = do |