diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-06-17 22:13:28 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-06-17 22:13:28 -0400 |
| commit | 42782a35a35c25533d0e98fbdd88626745da0c4b (patch) | |
| tree | 6616e4159e1bd30b013c2ad0ebd7b9895ebf1bcc /Annex/Ssh.hs | |
| parent | a659c68cc24731e150244980663a78a7a15bb530 (diff) | |
Revert "Windows: Ssh connection caching is now supported."
Yeah, that didn't actually work. Got error messages like it couldn't read
from the control socket, so probably ssh doesn't really support that on
Windows, at least the cygwin ssh build I'm using.
Diffstat (limited to 'Annex/Ssh.hs')
| -rw-r--r-- | Annex/Ssh.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs index 99b3c4435..940cbb5a7 100644 --- a/Annex/Ssh.hs +++ b/Annex/Ssh.hs @@ -63,16 +63,18 @@ sshInfo (host, port) = go =<< sshCacheDir , Params "-o ControlMaster=auto -o ControlPersist=yes" ] -{- ssh connection caching creates sockets, so will not work on all file - - systems. A GIT_ANNEX_TMP_DIR can be provided to use +{- ssh connection caching creates sockets, so will not work on a + - crippled filesystem. A GIT_ANNEX_TMP_DIR can be provided to use - a different filesystem. -} sshCacheDir :: Annex (Maybe FilePath) sshCacheDir - | SysConfig.sshconnectioncaching = - ifM (fromMaybe True . annexSshCaching <$> Annex.getGitConfig) + | SysConfig.sshconnectioncaching = ifM crippledFileSystem + ( maybe (return Nothing) usetmpdir =<< gettmpdir + , ifM (fromMaybe True . annexSshCaching <$> Annex.getGitConfig) ( Just <$> fromRepo gitAnnexSshDir - , maybe (return Nothing) usetmpdir =<< gettmpdir + , return Nothing ) + ) | otherwise = return Nothing where gettmpdir = liftIO $ getEnv "GIT_ANNEX_TMP_DIR" |