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

bugfix: shell escape for scp

Browse source
This commit is contained in:
Joey Hess 2010-10-31 22:13:43 -04:00
parent 4e742d62f4
commit 228b32d473
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Remotes.hs
View file

@ -217,7 +217,7 @@ copyToRemote r key file = do
liftIO $ boolSystem "scp" [src, sshLocation r file]
sshLocation :: Git.Repo -> FilePath -> FilePath
sshLocation r file = (Git.urlHost r) ++ ":" ++ file
sshLocation r file = (Git.urlHost r) ++ ":" ++ shellEscape file
{- Runs a command in a remote. -}
runCmd :: Git.Repo -> String -> [String] -> Annex Bool