-- | whitelist based sanitizer for attribute URI values.
sanitizeURIAttribute :: (Text, Text) -> Maybe (Text, Text)
sanitizeURIAttribute (name, value) =
  if name `notMember` uri_attributes || sanitaryURI value
  then Just (name, value)
  else Nothing
sanitizeURIAttribute :: (Text, Text) -> Maybe (Text, Text)
sanitizeURIAttribute (name, value) =
  if name `notMember` uri_attributes || sanitaryURI value
  then Just (name, value)
  else Nothing
sanitizeURIAttribute (name, value) =
  if name `notMember` uri_attributes || sanitaryURI value
  then Just (name, value)
  else Nothing