diff options
Diffstat (limited to 'Annex/Ssh.hs')
-rwxr-xr-x | Annex/Ssh.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs index 56109774b..1f924ecad 100755 --- a/Annex/Ssh.hs +++ b/Annex/Ssh.hs @@ -14,9 +14,6 @@ module Annex.Ssh ( ) where import qualified Data.Map as M -#ifndef __WINDOWS__ -import System.Posix.Env -#endif import Common.Annex import Annex.LockPool @@ -24,6 +21,7 @@ import Annex.Perms import qualified Build.SysConfig as SysConfig import qualified Annex import Config +import Utility.Env {- Generates parameters to ssh to a given host (or user@host) on a given - port, with connection caching. -} @@ -78,11 +76,7 @@ sshCacheDir ) | otherwise = return Nothing where -#ifndef __WINDOWS__ gettmpdir = liftIO $ getEnv "GIT_ANNEX_TMP_DIR" -#else - gettmpdir = return Nothing -#endif usetmpdir tmpdir = liftIO $ catchMaybeIO $ do createDirectoryIfMissing True tmpdir return tmpdir |