From 4494761640e28963c5abe20c433a74e0cfc8f9ee Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Thu, 11 Oct 2018 16:41:12 +0300
Subject: Muse reader: use indentWith to parse indentation

---
 src/Text/Pandoc/Readers/Muse.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

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.
-- 
cgit v1.2.3