From cb252f660f3276d89a3ffa74254768bdd27b217b Mon Sep 17 00:00:00 2001
From: Yitzchak Gale <yitzg@suite-sol.com>
Date: Tue, 26 Jun 2018 20:37:56 +0300
Subject: [PATCH] Use custom safe tags also for close tags.

---
 Text/HTML/SanitizeXSS.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Text/HTML/SanitizeXSS.hs b/Text/HTML/SanitizeXSS.hs
index b80b851..4d4d446 100644
--- a/Text/HTML/SanitizeXSS.hs
+++ b/Text/HTML/SanitizeXSS.hs
@@ -88,8 +88,8 @@ safeTags = mySafeTags safeTagName sanitizeAttribute
 mySafeTags :: (Text -> Bool) -> ((Text, Text) -> Maybe (Text, Text)) ->
               [Tag Text] -> [Tag Text]
 mySafeTags _ _ [] = []
-mySafeTags _ _ (t@(TagClose name):tags)
-    | safeTagName name = t : safeTags tags
+mySafeTags safeName _ (t@(TagClose name):tags)
+    | safeName name = t : safeTags tags
     | otherwise = safeTags tags
 mySafeTags safeName sanitizeAttr (TagOpen name attributes:tags)
   | safeName name = TagOpen name