From ae3b1467120d5377b07fd43d7b77004bc0813af6 Mon Sep 17 00:00:00 2001 From: Greg Weber Date: Mon, 8 Aug 2011 21:20:39 -0700 Subject: [PATCH] fix for new css-text api --- Text/HTML/SanitizeXSS/Css.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Text/HTML/SanitizeXSS/Css.hs b/Text/HTML/SanitizeXSS/Css.hs index 4705097..deb286f 100644 --- 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