more escaping for ssh

This commit is contained in:
Joey Hess 2010-10-31 22:19:25 -04:00
parent 228b32d473
commit 11efa7ef60

View file

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