@@ -1094,18 +1094,20 @@ rawHtmlBlocks = do
10941094 -- inline will not be parsed as inline tags
10951095 oldInHtmlBlock <- stateInHtmlBlock <$> getState
10961096 updateState $ \st -> st{ stateInHtmlBlock = Just tagtype }
1097− let closer = htmlTag (\x -> x ~== TagClose tagtype)
1098− let block' = try $
1099− do notFollowedBy' closer
1100− gobbleAtMostSpaces indentlevel
1101− block
1097+ let closer = htmlTag (~== TagClose tagtype)
1098+ let block' = try $ do
1099+ gobbleAtMostSpaces indentlevel
1100+ notFollowedBy' closer
1101+ block
11021102 contents <- mconcat <$> many block'
11031103 result <-
1104− (closer >>= \(_, rawcloser) -> return (
1105− return (B.rawBlock "html" $ stripMarkdownAttribute raw) <>
1104+ try
1105+ (do gobbleAtMostSpaces indentlevel
1106+ (_, rawcloser) <- closer
1107+ return (return (B.rawBlock "html" $ stripMarkdownAttribute raw) <>
11061108 contents <>
11071109 return (B.rawBlock "html" rawcloser)))
1108− <|> return (return (B.rawBlock "html" raw) <> contents)
1110+ <|> (return (return (B.rawBlock "html" raw) <> contents))
11091111 updateState $ \st -> st{ stateInHtmlBlock = oldInHtmlBlock }
11101112 return result
11111113