Coolbal/Util.hs


1
2
3
4
5
6

module Coolbal.Util where


genericEscapeString :: (Char -> Bool) -> (Char -> String) -> String -> String
genericEscapeString isReserved escape =
    concatMap (\c -> if isReserved c then escape c else [c])