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

white space removal

Browse Source
This commit is contained in:
Greg Weber 2011-08-09 09:32:36 -07:00
parent 49ce944fba
commit 773f3951e1
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

@ -87,7 +87,7 @@ safeAttribute (name, value) = name `member` sanitaryAttributes &&
(name `notMember` uri_attributes || sanitaryURI value) (name `notMember` uri_attributes || sanitaryURI value)
sanitizeAttribute :: (Text, Text) -> Maybe (Text, Text) sanitizeAttribute :: (Text, Text) -> Maybe (Text, Text)
sanitizeAttribute ("style", value) = sanitizeAttribute ("style", value) =
let css = sanitizeCSS value in if T.null css then Nothing else Just ("style", css) let css = sanitizeCSS value in if T.null css then Nothing else Just ("style", css)
sanitizeAttribute attr = Just attr sanitizeAttribute attr = Just attr

2
Text/HTML/SanitizeXSS/Css.hs
View File

@ -63,7 +63,7 @@ sanitizeCSS css = toStrict . toLazyText .
allowed_css_unit_properties = fromList ["background","border","margin","padding"] allowed_css_unit_properties = fromList ["background","border","margin","padding"]
allowedCssAttributeValue :: Text -> Bool allowedCssAttributeValue :: Text -> Bool
allowedCssAttributeValue val = allowedCssAttributeValue val =
val `member` allowed_css_keywords || val `member` allowed_css_keywords ||
case parseOnly allowedCssAttributeParser val of case parseOnly allowedCssAttributeParser val of
Left _ -> False Left _ -> False