From 773f3951e1d89dc1b36cb594a6ebe7be979ce4d5 Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Tue, 9 Aug 2011 09:32:36 -0700
Subject: [PATCH] white space removal

---
 Text/HTML/SanitizeXSS.hs     | 2 +-
 Text/HTML/SanitizeXSS/Css.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Text/HTML/SanitizeXSS.hs b/Text/HTML/SanitizeXSS.hs
index 8b1cf65..ac8e10d 100644
--- a/Text/HTML/SanitizeXSS.hs
+++ b/Text/HTML/SanitizeXSS.hs
@@ -87,7 +87,7 @@ safeAttribute (name, value) = name `member` sanitaryAttributes &&
   (name `notMember` uri_attributes || sanitaryURI value)
 
 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)
 sanitizeAttribute attr = Just attr
          
diff --git a/Text/HTML/SanitizeXSS/Css.hs b/Text/HTML/SanitizeXSS/Css.hs
index 108ff00..f2a9a79 100644
--- a/Text/HTML/SanitizeXSS/Css.hs
+++ b/Text/HTML/SanitizeXSS/Css.hs
@@ -63,7 +63,7 @@ sanitizeCSS css = toStrict . toLazyText .
     allowed_css_unit_properties = fromList ["background","border","margin","padding"]
 
 allowedCssAttributeValue :: Text -> Bool
-allowedCssAttributeValue val = 
+allowedCssAttributeValue val =
   val `member` allowed_css_keywords ||
     case parseOnly allowedCssAttributeParser val of
         Left _ -> False