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

fix for new css-text api

Browse Source
This commit is contained in:
Greg Weber 2011-08-08 21:20:39 -07:00
parent 844a580533
commit ae3b146712
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/Css.hs
View File

@ -18,7 +18,7 @@ import Text.CSS.Parse (parseAttrs)
sanitizeCSS :: Text -> Text sanitizeCSS :: Text -> Text
sanitizeCSS css = toStrict . toLazyText . renderAttrs . filter isSanitaryAttr $ parseAttributes sanitizeCSS css = toStrict . toLazyText . renderAttrs . filter isSanitaryAttr $ parseAttributes
where where
parseAttributes = case parseOnly parseAttrs css of parseAttributes = case parseAttrs css of
Left _ -> [] Left _ -> []
Right as -> as Right as -> as