Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- shellEscape :: String -> String
- shellEscape "" = ""
- shellEscape ('\'' : cs) = '\'' : '\\' : '\'' : '\'' : shellEscape cs
- shellEscape (c : cs) = c : shellEscape cs
- shellQuote :: String -> String
- shellQuote s = "'" ++ shellEscape s ++ "'"
Add Comment
Please, Sign In to add comment