aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-10-11 16:41:12 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-10-11 16:41:12 +0300
commit4494761640e28963c5abe20c433a74e0cfc8f9ee (patch)
treedcddcc83d230a214f5ac83fedd5911380b76d426 /src/Text/Pandoc/Readers
parenta9c69b20c5c095b8eaad054421bbe488413ad4c9 (diff)
downloadpandoc-4494761640e28963c5abe20c433a74e0cfc8f9ee.tar.gz
Muse reader: use indentWith to parse indentation
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index b3b596041..f180d40db 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -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.