mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more accurate type

Browse source
This commit is contained in:
Joey Hess 2010-10-31 22:20:07 -04:00
parent 11efa7ef60
commit d04bfceaad
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility.hs
View file

@ -110,7 +110,7 @@ boolSystem command params = do
executeFile command True params Nothing executeFile command True params Nothing
{- Escapes a filename to be safely able to be exposed to the shell. -} {- Escapes a filename to be safely able to be exposed to the shell. -}
shellEscape :: FilePath -> FilePath shellEscape :: FilePath -> String
shellEscape f = "'" ++ quote ++ "'" shellEscape f = "'" ++ quote ++ "'"
where where
-- replace ' with '"'"' -- replace ' with '"'"'