haskell/xss-sanitize
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improve function layout.

Browse Source
This commit is contained in:
Yitzchak Gale 2018-07-01 14:54:41 +03:00
parent ea3047902a
commit 787b7f060f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Text/HTML/SanitizeXSS.hs
View File

@ -97,8 +97,7 @@ safeTagsCustom ::
-- 'safeTagName' -- 'safeTagName'
-> ((Text, Text) -> Maybe (Text, Text)) -- ^ Sanitize attributes, -> ((Text, Text) -> Maybe (Text, Text)) -- ^ Sanitize attributes,
-- like 'sanitizeAttribute' -- like 'sanitizeAttribute'
-> -> [Tag Text] -> [Tag Text]
[Tag Text] -> [Tag Text]
safeTagsCustom _ _ [] = [] safeTagsCustom _ _ [] = []
safeTagsCustom safeName sanitizeAttr (t@(TagClose name):tags) safeTagsCustom safeName sanitizeAttr (t@(TagClose name):tags)
| safeName name = t : safeTagsCustom safeName sanitizeAttr tags | safeName name = t : safeTagsCustom safeName sanitizeAttr tags