{- | Removes potentially problematic or malicious stuff -}
sanitize :: String -> String
sanitize = strip . map sanitizer
    where sanitizer c
              | c `elem` "\n\r\0\t" = ' '
              | otherwise = c

{- | Twitter has an additional level of escaping for &lt; and &gt; only.
Sigh. -}
sanitize :: String -> String
sanitize = strip . map sanitizer
    where sanitizer c
              | c `elem` "\n\r\0\t" = ' '
              | otherwise = c

{- | Twitter has an additional level of escaping for &lt; and &gt; only.
Sigh. -}
sanitize = strip . map sanitizer
    where sanitizer c
              | c `elem` "\n\r\0\t" = ' '
              | otherwise = c

{- | Twitter has an additional level of escaping for &lt; and &gt; only.
Sigh. -}