module HTMLEnt where

htmlEntityEncode :: String -> String
htmlEntityEncode s = foldr (++) [] (map htmlEntChar s)
htmlEntChar :: Char -> String
htmlEntChar '<' = "&lt;"
htmlEntChar '>' = "&gt;"
htmlEntChar '&' = "&amp;"
htmlEntChar c = [c]