From 11efa7ef609a99de2841772e415cd2808ee438b8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 31 Oct 2010 22:19:25 -0400 Subject: [PATCH] more escaping for ssh --- Remotes.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Remotes.hs b/Remotes.hs index b36856b543..135a701ffb 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -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"