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

tweak

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

4
Utility.hs
View file

@ -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