diff options
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Ssh.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs index 161e574d8..e92232b6f 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 () |