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

Muse reader: parse verse tag contents without parseFromString

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

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

@ -304,10 +304,9 @@ divTag = do
verseLine :: PandocMonad m => MuseParser m (F Inlines)
verseLine = do
line <- anyLine <|> many1Till anyChar eof
let (white, rest) = span (== ' ') line
let s = replicate (length white) '\160' ++ rest
parseFromString' (trimInlinesF . mconcat <$> many inline) s
indent <- (B.str <$> many1 (char ' ' >> pure '\160')) <|> (pure mempty)
rest <- manyTill (choice inlineList) newline
return $ trimInlinesF $ mconcat (pure indent : rest)
verseLines :: PandocMonad m => MuseParser m (F Blocks)
verseLines = do