From 55b92860ceb099614ac9ebe4c37e92b57ad6a430 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 6 Nov 2010 21:12:45 -0400
Subject: [PATCH] bigfix: doubled shell escape

---
 Remotes.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Remotes.hs b/Remotes.hs
index 7bb1bcd222..280543968c 100644
--- a/Remotes.hs
+++ b/Remotes.hs
@@ -94,8 +94,7 @@ inAnnex r key = do
 			Annex.eval a (Core.inAnnex key)
 		checkremote = do
 			Core.showNote ("checking " ++ Git.repoDescribe r ++ "...")
-			inannex <- runCmd r "test"
-				[ "-e", (shellEscape $ annexLocation r key)]
+			inannex <- runCmd r "test" ["-e", annexLocation r key]
 			-- XXX Note that ssh failing and the file not existing
 			-- are not currently differentiated.
 			return $ Right inannex