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

more escaping for ssh

Browse source
This commit is contained in:
Joey Hess 2010-10-31 22:19:25 -04:00
parent 228b32d473
commit 11efa7ef60
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remotes.hs
View file

@ -232,6 +232,6 @@ runCmd r command params = do
then do then do
liftIO $ boolSystem "ssh" [Git.urlHost r, liftIO $ boolSystem "ssh" [Git.urlHost r,
"cd " ++ (shellEscape $ Git.workTree r) ++ "cd " ++ (shellEscape $ Git.workTree r) ++
" && " ++ command ++ " " ++ " && " ++ (shellEscape command) ++ " " ++
unwords params] (unwords $ map shellEscape params)]
else error "running command in non-ssh repo not supported" else error "running command in non-ssh repo not supported"