diff options
| -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 c720a6bb5..161e574d8 100644 --- a/Annex/Ssh.hs +++ b/Annex/Ssh.hs @@ -280,14 +280,14 @@ sshOptionsTo remote gc g unchanged = return g use opts = do - let sshopts = + let sshopts = concat [ opts , map Param (remoteAnnexSshOptions gc) ] if null sshopts then unchanged else do - let val = toSshOptionsEnv (concat sshopts) + let val = toSshOptionsEnv sshopts command <- liftIO programPath liftIO $ do g' <- addGitEnv g sshOptionsEnv val |