sync, remotedaemon: Pass configured ssh-options even when annex.sshcaching is disabled.

This commit is contained in:
Joey Hess 2015-05-30 22:01:52 -04:00
parent 772cff535e
commit a6d54e49a0
2 changed files with 14 additions and 9 deletions

View file

@ -271,19 +271,22 @@ sshOptionsTo remote gc g
Just host -> do Just host -> do
(msockfile, _) <- sshCachingInfo (host, Git.Url.port remote) (msockfile, _) <- sshCachingInfo (host, Git.Url.port remote)
case msockfile of case msockfile of
Nothing -> return g Nothing -> use []
Just sockfile -> do Just sockfile -> do
command <- liftIO programPath
prepSocket sockfile prepSocket sockfile
use (sshConnectionCachingParams sockfile)
where
uncached = return g
use opts = do
let val = toSshOptionsEnv $ concat let val = toSshOptionsEnv $ concat
[ sshConnectionCachingParams sockfile [ opts
, map Param (remoteAnnexSshOptions gc) , map Param (remoteAnnexSshOptions gc)
] ]
command <- liftIO programPath
liftIO $ do liftIO $ do
g' <- addGitEnv g sshOptionsEnv val g' <- addGitEnv g sshOptionsEnv val
addGitEnv g' "GIT_SSH" command addGitEnv g' "GIT_SSH" command
where
uncached = return g
runSshOptions :: [String] -> String -> IO () runSshOptions :: [String] -> String -> IO ()
runSshOptions args s = do runSshOptions args s = do

2
debian/changelog vendored
View file

@ -2,6 +2,8 @@ git-annex (5.20150529) UNRELEASED; urgency=medium
* fromkey, registerurl: Improve handling of urls that happen to also * fromkey, registerurl: Improve handling of urls that happen to also
be parsable as strange keys. be parsable as strange keys.
* sync, remotedaemon: Pass configured ssh-options even when
annex.sshcaching is disabled.
-- Joey Hess <id@joeyh.name> Sat, 30 May 2015 02:07:18 -0400 -- Joey Hess <id@joeyh.name> Sat, 30 May 2015 02:07:18 -0400