-- | whitelist based sanitizer for attribute names.
safeAttribute :: (Text, Text) -> Maybe (Text, Text)
safeAttribute (name, value) =
  if name `member` sanitaryAttributes
  then Just (name, value)
  else Nothing
safeAttribute :: (Text, Text) -> Maybe (Text, Text)
safeAttribute (name, value) =
  if name `member` sanitaryAttributes
  then Just (name, value)
  else Nothing
safeAttribute (name, value) =
  if name `member` sanitaryAttributes
  then Just (name, value)
  else Nothing