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