@@ -215,7 +215,7 @@ parseHtmlContent :: PandocMonad m
215215parseHtmlContent tag = try $ getIndent >>= \indent -> (,)
216216 <$> fmap htmlAttrToPandoc (openTag tag)
217217 <* manyTill spaceChar eol
218− <*> allowPara (parseBlocksTill (try $ count indent spaceChar *> closeTag tag))
218+ <*> allowPara (parseBlocksTill (try $ indentWith indent *> closeTag tag))
219219 <* manyTill spaceChar eol -- closing tag must be followed by optional whitespace and newline
220220
221221-- ** Directive parsers
@@ -462,7 +462,7 @@ verseTag :: PandocMonad m => MuseParser m (F Blocks)
462462verseTag = try $ getIndent >>= \indent -> fmap B.lineBlock . sequence
463463 <$ openTag "verse"
464464 <* 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")
466466 <* manyTill spaceChar eol
467467
468468-- | Parse @\<comment>@ tag.