@@ -159,7 +159,7 @@ anyHtmlTag = try $ do
159 concatMap (\(_, _, raw) -> (' ':raw)) attribs ++ ender' ++ ">"
159 concatMap (\(_, _, raw) -> (' ':raw)) attribs ++ ender' ++ ">"
160 unsanitary <- unsanitaryTag tag
160 unsanitary <- unsanitaryTag tag
161 if unsanitary
161 if unsanitary
162− then return $ "<!-- unsafe tag " ++ result ++ " omitted -->"
162+ then return $ "<!-- unsafe HTML removed -->"
163 else return result
163 else return result
165anyHtmlEndTag = try $ do
165anyHtmlEndTag = try $ do
@@ -173,7 +173,7 @@ anyHtmlEndTag = try $ do
173 let result = "</" ++ tag ++ ">"
173 let result = "</" ++ tag ++ ">"
174 unsanitary <- unsanitaryTag tag
174 unsanitary <- unsanitaryTag tag
175 if unsanitary
175 if unsanitary
176− then return $ "<!-- unsafe tag " ++ result ++ " omitted -->"
176+ then return $ "<!-- unsafe HTML removed -->"
177 else return result
177 else return result
179htmlTag :: String -> GenParser Char ParserState (String, [(String, String)])
179htmlTag :: String -> GenParser Char ParserState (String, [(String, String)])
@@ -255,7 +255,7 @@ htmlScript = try $ do
255 rest <- manyTill anyChar (htmlEndTag "script")
255 rest <- manyTill anyChar (htmlEndTag "script")
256 st <- getState
256 st <- getState
257 if stateSanitizeHTML st && not ("script" `elem` sanitaryTags)
257 if stateSanitizeHTML st && not ("script" `elem` sanitaryTags)
258− then return "<!-- unsafe script omitted -->"
258+ then return "<!-- unsafe HTML removed -->"
259 else return $ open ++ rest ++ "</script>"
259 else return $ open ++ rest ++ "</script>"
261-- | Parses material between style tags.
261-- | Parses material between style tags.
@@ -265,7 +265,7 @@ htmlStyle = try $ do
265 rest <- manyTill anyChar (htmlEndTag "style")
265 rest <- manyTill anyChar (htmlEndTag "style")
266 st <- getState
266 st <- getState
267 if stateSanitizeHTML st && not ("style" `elem` sanitaryTags)
267 if stateSanitizeHTML st && not ("style" `elem` sanitaryTags)
268− then return "<!-- unsafe style omitted -->"
268+ then return "<!-- unsafe HTML removed -->"
269 else return $ open ++ rest ++ "</style>"
269 else return $ open ++ rest ++ "</style>"
271htmlBlockElement = choice [ htmlScript, htmlStyle, htmlComment, xmlDec, definition ]
271htmlBlockElement = choice [ htmlScript, htmlStyle, htmlComment, xmlDec, definition ]