module Coolbal.Util where


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