diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-31 22:22:01 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-31 22:22:01 -0400 |
commit | c6206c4560adf35427569a9d9a637f9ee23cb2b8 (patch) | |
tree | 9871ef3e91ced7cef13c1c8c7c0eb9da891f57cf | |
parent | d04bfceaad3e96c91c7effa9cebdc0811d336278 (diff) |
tweak
-rw-r--r-- | Utility.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility.hs b/Utility.hs index 47c059ded..4e56289e2 100644 --- a/Utility.hs +++ b/Utility.hs @@ -111,7 +111,7 @@ boolSystem command params = do {- Escapes a filename to be safely able to be exposed to the shell. -} shellEscape :: FilePath -> String -shellEscape f = "'" ++ quote ++ "'" +shellEscape f = "'" ++ escaped ++ "'" where -- replace ' with '"'"' - quote = join "'\"'\"'" $ split "'" f + escaped = join "'\"'\"'" $ split "'" f |