From f7d79951728c7b44fc2c0c7dfc1130d4bbaa8b63 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 4 Aug 2015 17:07:45 -0400
Subject: [PATCH] clean

---
 Annex/Ssh.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs
index 161e574d8d..e92232b6fb 100644
--- a/Annex/Ssh.hs
+++ b/Annex/Ssh.hs
@@ -287,10 +287,10 @@ sshOptionsTo remote gc g
 		if null sshopts
 			then unchanged
 			else do
-				let val = toSshOptionsEnv sshopts
 				command <- liftIO programPath
 				liftIO $ do
-					g' <- addGitEnv g sshOptionsEnv val
+					g' <- addGitEnv g sshOptionsEnv
+						(toSshOptionsEnv sshopts)
 					addGitEnv g' "GIT_SSH" command
 
 runSshOptions :: [String] -> String -> IO ()