diff --git a/src/Text/HTML/SanitizeXSS.hs b/src/Text/HTML/SanitizeXSS.hs
index abcc13c..f7ea173 100644
--- a/src/Text/HTML/SanitizeXSS.hs
+++ b/src/Text/HTML/SanitizeXSS.hs
@@ -97,8 +97,7 @@ safeTagsCustom ::
-- 'safeTagName'
-> ((Text, Text) -> Maybe (Text, Text)) -- ^ Sanitize attributes,
-- like 'sanitizeAttribute'
- ->
- [Tag Text] -> [Tag Text]
+ -> [Tag Text] -> [Tag Text]
safeTagsCustom _ _ [] = []
safeTagsCustom safeName sanitizeAttr (t@(TagClose name):tags)
| safeName name = t : safeTagsCustom safeName sanitizeAttr tags