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