Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse reader: make verseLine return Inlines, not String

Browse source
This commit is contained in:
Alexander Krotov 2018-01-28 08:35:00 +03:00
parent 4bfab8f04c
commit 05275be2cb
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Readers/Muse.hs
View file

@ -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