@@ -1094,18 +1094,20 @@ rawHtmlBlocks = do
1094 -- inline will not be parsed as inline tags
1094 -- inline will not be parsed as inline tags
1095 oldInHtmlBlock <- stateInHtmlBlock <$> getState
1095 oldInHtmlBlock <- stateInHtmlBlock <$> getState
1096 updateState $ \st -> st{ stateInHtmlBlock = Just tagtype }
1096 updateState $ \st -> st{ stateInHtmlBlock = Just tagtype }
1097− let closer = htmlTag (\x -> x ~== TagClose tagtype)
1097+ let closer = htmlTag (~== TagClose tagtype)
1098− let block' = try $
1098+ let block' = try $ do
1099− do notFollowedBy' closer
1100− gobbleAtMostSpaces indentlevel
1099+ gobbleAtMostSpaces indentlevel
1100+ notFollowedBy' closer
1102 contents <- mconcat <$> many block'
1102 contents <- mconcat <$> many block'
1103 result <-
1103 result <-
1105+ (do gobbleAtMostSpaces indentlevel
1104− (closer >>= \(_, rawcloser) -> return (
1106+ (_, rawcloser) <- closer
1105− return (B.rawBlock "html" $ stripMarkdownAttribute raw) <>
1107+ return (return (B.rawBlock "html" $ stripMarkdownAttribute raw) <>
1106 contents <>
1108 contents <>
1107 return (B.rawBlock "html" rawcloser)))
1109 return (B.rawBlock "html" rawcloser)))
1108− <|> return (return (B.rawBlock "html" raw) <> contents)
1110+ <|> (return (return (B.rawBlock "html" raw) <> contents))
1109 updateState $ \st -> st{ stateInHtmlBlock = oldInHtmlBlock }
1111 updateState $ \st -> st{ stateInHtmlBlock = oldInHtmlBlock }
1110 return result
1112 return result