You can do that in Haskell easily.
data UnsafeString = Unsafe String
htmlencode :: String -> String
sanitizeUnsafeStr :: UnsafeString -> String
sanitizeUnsafeStr (Unsafe cs) = htmlencode cs