diff options
-rw-r--r-- | Utility.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility.hs b/Utility.hs index 6867f473a..47c059ded 100644 --- a/Utility.hs +++ b/Utility.hs @@ -110,7 +110,7 @@ boolSystem command params = do executeFile command True params Nothing {- Escapes a filename to be safely able to be exposed to the shell. -} -shellEscape :: FilePath -> FilePath +shellEscape :: FilePath -> String shellEscape f = "'" ++ quote ++ "'" where -- replace ' with '"'"' |