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

Muse reader: use indentWith to parse indentation

Browse source
This commit is contained in:
Alexander Krotov 2018-10-11 16:41:12 +03:00
parent a9c69b20c5
commit 4494761640
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -215,7 +215,7 @@ parseHtmlContent :: PandocMonad m
parseHtmlContent tag = try $ getIndent >>= \indent -> (,)
<$> fmap htmlAttrToPandoc (openTag tag)
<* manyTill spaceChar eol
<*> allowPara (parseBlocksTill (try $ count indent spaceChar *> closeTag tag))
<*> allowPara (parseBlocksTill (try $ indentWith indent *> closeTag tag))
<* manyTill spaceChar eol -- closing tag must be followed by optional whitespace and newline
-- ** Directive parsers
@ -462,7 +462,7 @@ verseTag :: PandocMonad m => MuseParser m (F Blocks)
verseTag = try $ getIndent >>= \indent -> fmap B.lineBlock . sequence
<$ openTag "verse"
<* manyTill spaceChar eol
<*> manyTill (count indent spaceChar *> verseLine) (try $ count indent spaceChar *> closeTag "verse")
<*> manyTill (indentWith indent *> verseLine) (try $ indentWith indent *> closeTag "verse")
<* manyTill spaceChar eol
-- | Parse @\<comment>@ tag.