-- | default tag and attribute sanitizer based on whitelist.
safeTags :: Tag Text -> Maybe (Tag Text)
safeTags = sanitizeWith safeTagName (sanitizeStyleAttribute <=< sanitizeURIAttribute <=< safeAttribute)
safeTags :: Tag Text -> Maybe (Tag Text)
safeTags = sanitizeWith safeTagName (sanitizeStyleAttribute <=< sanitizeURIAttribute <=< safeAttribute)
safeTags = sanitizeWith safeTagName (sanitizeStyleAttribute <=< sanitizeURIAttribute <=< safeAttribute)