diff options
author | 2015-08-04 17:07:45 -0400 | |
---|---|---|
committer | 2015-08-04 17:07:45 -0400 | |
commit | 308c5314fa7a7bd18da8c33286085a2f7b9d8737 (patch) | |
tree | 474449052874b9647709b5b14306d917cb9f3279 /Annex/Ssh.hs | |
parent | 4d2ecf569261c3fb251f45d9d8a8a00724693774 (diff) |
clean
Diffstat (limited to 'Annex/Ssh.hs')
-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 () |