From 11efa7ef609a99de2841772e415cd2808ee438b8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
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"