From 9c901f578526eb385e486a6986ea3b5eeef42778 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 28 Nov 2011 19:55:28 +0200
Subject: [PATCH] attoparsec 0.10

---
 Text/HTML/SanitizeXSS/Css.hs | 15 +++++++++------
 xss-sanitize.cabal           |  2 +-
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/Text/HTML/SanitizeXSS/Css.hs b/Text/HTML/SanitizeXSS/Css.hs
index f2a9a79..3470608 100644
--- a/Text/HTML/SanitizeXSS/Css.hs
+++ b/Text/HTML/SanitizeXSS/Css.hs
@@ -12,7 +12,7 @@ import Data.Attoparsec.Text
 import Data.Text.Lazy.Builder (toLazyText)
 import Data.Text.Lazy (toStrict)
 import Data.Set (member, fromList, Set)
-import Data.Char (isDigit)
+import Data.Char (isDigit, isSpace)
 import Control.Applicative ((<|>), pure)
 import Text.CSS.Render (renderAttrs)
 import Text.CSS.Parse (parseAttrs)
@@ -38,7 +38,7 @@ sanitizeCSS css = toStrict . toLazyText .
 
         rejectUrl = do
           pre <- manyTill anyChar (string "url")
-          skipMany space
+          skipWhile isSpace
           _<-char '('
           skipWhile (/= ')')
           _<-char ')'
@@ -82,11 +82,11 @@ allowedCssAttributeValue val =
     -- should have used sepBy (symbol ",")
     rgb = do
       _<- string "rgb("
-      skipMany1 digit >> skipOk (== '%')
+      skipWhile1 isDigit >> skipOk (== '%')
       skip (== ',')
-      skipMany digit >> skipOk (== '%')
+      skipWhile1 isDigit >> skipOk (== '%')
       skip (== ',')
-      skipMany digit >> skipOk (== '%')
+      skipWhile1 isDigit >> skipOk (== '%')
       skip (== ')')
       return True
 
@@ -95,7 +95,7 @@ allowedCssAttributeValue val =
       skipOk isDigit
       skipOk (== '.')
       skipOk isDigit >> skipOk isDigit
-      skipSpace
+      skipWhile isSpace
       unit <- takeText
       return $ T.null unit || unit `member` allowed_css_attribute_value_units
 
@@ -138,3 +138,6 @@ allowed_svg_properties = fromList acceptable_svg_properties
     acceptable_svg_properties = [ "fill", "fill-opacity", "fill-rule",
         "stroke", "stroke-width", "stroke-linecap", "stroke-linejoin",
         "stroke-opacity"]
+
+skipWhile1 :: (Char -> Bool) -> Parser ()
+skipWhile1 f = skip f >> skipWhile f
diff --git a/xss-sanitize.cabal b/xss-sanitize.cabal
index 2168ffc..daab55f 100644
--- a/xss-sanitize.cabal
+++ b/xss-sanitize.cabal
@@ -20,7 +20,7 @@ library
                     , network >= 2
                     , css-text >= 0.1 && < 0.2
                     , text                      >= 0.11     && < 0.12
-                    , attoparsec-text           >= 0.8.5.1  && < 0.9
+                    , attoparsec                >= 0.10     && < 0.11
 
 
     exposed-modules: Text.HTML.SanitizeXSS