fix for new css-text api

2011-08-08 21:20:39 -07:00 · 2011-08-08 21:20:39 -07:00 · ae3b146712
commit ae3b146712
parent 844a580533
1 changed files with 1 additions and 1 deletions
--- a/Text/HTML/SanitizeXSS/Css.hs
+++ b/Text/HTML/SanitizeXSS/Css.hs
@ -18,7 +18,7 @@ import Text.CSS.Parse (parseAttrs)
 sanitizeCSS :: Text -> Text
 sanitizeCSS css = toStrict . toLazyText . renderAttrs . filter isSanitaryAttr $ parseAttributes
  where
-    parseAttributes = case parseOnly parseAttrs css of
+    parseAttributes = case parseAttrs css of
      Left _ -> []
      Right as -> as