module Text.HTML.Moe2.Utils ( escape , module Text.HTML.Moe2.Backend.ByteString , (/) ) where import Data.Monoid import Text.HTML.Moe2.Backend.ByteString import Prelude hiding ((/)) escape :: String -> String escape = escape_html escape_html :: String -> String escape_html = concatMap fixChar where fixChar '&' = "&" fixChar '<' = "<" fixChar '>' = ">" fixChar '\'' = "'" fixChar '"' = """ fixChar x = [x] (/) :: (Monad m) => m () (/) = return ()