git.iko.soy/elk
on d9d1dfd help sign in
elk/elm/tests/Util/String.hs
13 lines 314 B history raw
1module Util.String where
3import qualified Data.Text as T
5replace :: String -> String -> String -> String
6replace a b c = T.unpack (T.replace (T.pack a) (T.pack b) (T.pack c))
8escape :: String -> String
9escape =
10 (replace "\n" "\\n") .
11 (replace "\t" "\\t") .
12 (replace "\"" "\\\"") .
13 (replace "\\" "\\\\")