diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-08-04 17:07:45 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-08-04 17:07:45 -0400 |
| commit | 308c5314fa7a7bd18da8c33286085a2f7b9d8737 (patch) | |
| tree | 474449052874b9647709b5b14306d917cb9f3279 | |
| parent | 4d2ecf569261c3fb251f45d9d8a8a00724693774 (diff) | |
clean
| -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 () |