From 5dbc1428a8cf917df6f6f6fef8c649152af221d5 Mon Sep 17 00:00:00 2001 From: Greg Weber Date: Sat, 25 Sep 2010 13:33:22 -0700 Subject: [PATCH] remove comment --- Text/HTML/SanitizeXSS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Text/HTML/SanitizeXSS.hs b/Text/HTML/SanitizeXSS.hs index d87bed9..cc25601 100644 --- a/Text/HTML/SanitizeXSS.hs +++ b/Text/HTML/SanitizeXSS.hs @@ -12,7 +12,7 @@ import Codec.Binary.UTF8.String ( encodeString, decodeString ) sanitizeXSS :: String -> String sanitizeXSS = renderTagsOptions renderOptions { optMinimize = \x -> x `elem` ["br","img"] - } . safeTags . parseTags -- Options parseOptions { optTagPosition = True } + } . safeTags . parseTags where safeTags :: [Tag String] -> [Tag String] safeTags [] = []