From d04bfceaad3e96c91c7effa9cebdc0811d336278 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 31 Oct 2010 22:20:07 -0400 Subject: more accurate type --- Utility.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Utility.hs') 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 '"'"' -- cgit v1.2.3