diff options
Diffstat (limited to 'Annex/Ssh.hs')
| -rw-r--r-- | Annex/Ssh.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs index 444d534f6..827c40fef 100644 --- a/Annex/Ssh.hs +++ b/Annex/Ssh.hs @@ -77,12 +77,9 @@ sshCacheDir | otherwise = return Nothing where gettmpdir = liftIO $ getEnv "GIT_ANNEX_TMP_DIR" - usetmpdir tmpdir = do - u <- getUUID - let dir = tmpdir </> fromUUID u - liftIO $ catchMaybeIO $ do - createDirectoryIfMissing True dir - return $ dir + usetmpdir tmpdir = liftIO $ catchMaybeIO $ do + createDirectoryIfMissing True tmpdir + return $ tmpdir portParams :: Maybe Integer -> [CommandParam] portParams Nothing = [] |