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

Use custom safe tags also for close tags.

Browse Source
This commit is contained in:
Yitzchak Gale 2018-06-26 20:37:56 +03:00
parent bbd7af410d
commit cb252f660f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Text/HTML/SanitizeXSS.hs
View File

@ -88,8 +88,8 @@ safeTags = mySafeTags safeTagName sanitizeAttribute
mySafeTags :: (Text -> Bool) -> ((Text, Text) -> Maybe (Text, Text)) -> mySafeTags :: (Text -> Bool) -> ((Text, Text) -> Maybe (Text, Text)) ->
[Tag Text] -> [Tag Text] [Tag Text] -> [Tag Text]
mySafeTags _ _ [] = [] mySafeTags _ _ [] = []
mySafeTags _ _ (t@(TagClose name):tags) mySafeTags safeName _ (t@(TagClose name):tags)
| safeTagName name = t : safeTags tags | safeName name = t : safeTags tags
| otherwise = safeTags tags | otherwise = safeTags tags
mySafeTags safeName sanitizeAttr (TagOpen name attributes:tags) mySafeTags safeName sanitizeAttr (TagOpen name attributes:tags)
| safeName name = TagOpen name | safeName name = TagOpen name