@@ -618,7 +618,7 @@ rawAttribute = do
618618 char '{'
619619 skipMany spaceChar
620620 char '='
621− format <- many1Char $ satisfy (\c -> isAlphaNum c || c `elem` ['-', '_'])
621+ format <- many1Char $ satisfy (\c -> isAlphaNum c || c `elem` ['-', '_'])
622622 skipMany spaceChar
623623 char '}'
624624 return format
@@ -1095,7 +1095,8 @@ rawHtmlBlocks = do
10951095 oldInHtmlBlock <- stateInHtmlBlock <$> getState
10961096 updateState $ \st -> st{ stateInHtmlBlock = Just tagtype }
10971097 let closer = htmlTag (\x -> x ~== TagClose tagtype)
1098− let block' = do notFollowedBy' closer
1098+ let block' = try $
1099+ do notFollowedBy' closer
10991100 gobbleAtMostSpaces indentlevel
11001101 block
11011102 contents <- mconcat <$> many block'