more accurate type

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 '"'"'