more escaping for ssh
This commit is contained in:
parent
228b32d473
commit
11efa7ef60
1 changed files with 2 additions and 2 deletions
|
@ -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"
|
||||
|
|
Loading…
Add table
Reference in a new issue