daily pastebin goal
17%
SHARE
TWEET

Untitled

a guest Jun 19th, 2018 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. shellEscape :: String -> String
  2. shellEscape ""          = ""
  3. shellEscape ('\'' : cs) = '\'' : '\\' : '\'' : '\'' : shellEscape cs
  4. shellEscape (c    : cs) = c : shellEscape cs
  5.  
  6. shellQuote :: String -> String
  7. shellQuote s = "'" ++ shellEscape s ++ "'"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top