-- | whitelist based sanitizer inline CSS within style attributes.
sanitizeStyleAttribute :: (Text, Text) -> Maybe (Text, Text)
sanitizeStyleAttribute ("style", value) =
  let css = sanitizeCSS value in if T.null css then Nothing else Just ("style", css)
sanitizeStyleAttribute :: (Text, Text) -> Maybe (Text, Text)
sanitizeStyleAttribute ("style", value) =
  let css = sanitizeCSS value in if T.null css then Nothing else Just ("style", css)
sanitizeStyleAttribute ("style", value) =
  let css = sanitizeCSS value in if T.null css then Nothing else Just ("style", css)