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

turn tagPosition off - test passes

Browse Source
This commit is contained in:
Greg Weber 2010-09-24 12:15:12 -07:00
parent eb71e1dd0c
commit 705b84b75b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Text/HTML/SanitizeXSS.hs
View File

@ -14,7 +14,7 @@ import Text.HTML.TagSoup
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 . parseTagsOptions parseOptions { optTagPosition = True } } . safeTags . parseTags -- Options parseOptions { optTagPosition = True }
where where
safeTags :: [Tag String] -> [Tag String] safeTags :: [Tag String] -> [Tag String]
safeTags [] = [] safeTags [] = []