diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-08-04 16:53:38 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-08-04 16:53:38 -0400 |
| commit | 4d2ecf569261c3fb251f45d9d8a8a00724693774 (patch) | |
| tree | 7443097b22849b39070d6743d3a6ff738f0e9343 | |
| parent | 5ebc687284d070e1964c74d9af4f867a7f3da42a (diff) | |
sshopts is never going to be null; the concat of it may be
| -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 |