From eb71e1dd0c44a8b17fc225e7bd963b1410f57f5e Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Fri, 24 Sep 2010 09:21:03 -0700
Subject: [PATCH] add some more tags not in the white list

---
 test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test.hs b/test.hs
index fa6cc23..cc35a13 100644
--- a/test.hs
+++ b/test.hs
@@ -1,7 +1,7 @@
 import Text.HTML.SanitizeXSS
 
 main = do
-  let test = " <a href='unsafe://hack.com'>anchor</a> <img src='evil://evil.com' /> </foo> <br></br> "
+  let test = " <a href='unsafe://hack.com'>anchor</a> <img src='evil://evil.com' /> <unsafe></foo> <bar /> <br></br> "
   let actual = (sanitizeXSS test)
   let expected = " <a>anchor</a> <img /> <br /> "
   putStrLn $ if actual == expected then "pass" else "failure parsing:" ++ (show test) ++ "\nexpected:" ++ (show expected) ++ "\nactual:  " ++ (show actual)