haskell/xss-sanitize
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove comment

Browse Source
This commit is contained in:
Greg Weber 2010-09-25 13:33:22 -07:00
parent c9765daaed
commit 5dbc1428a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Text/HTML/SanitizeXSS.hs
View File

@ -12,7 +12,7 @@ import Codec.Binary.UTF8.String ( encodeString, decodeString )
sanitizeXSS :: String -> String sanitizeXSS :: String -> String
sanitizeXSS = renderTagsOptions renderOptions { sanitizeXSS = renderTagsOptions renderOptions {
optMinimize = \x -> x `elem` ["br","img"] optMinimize = \x -> x `elem` ["br","img"]
} . safeTags . parseTags -- Options parseOptions { optTagPosition = True } } . safeTags . parseTags
where where
safeTags :: [Tag String] -> [Tag String] safeTags :: [Tag String] -> [Tag String]
safeTags [] = [] safeTags [] = []