diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-19 17:31:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-19 17:31:08 -0400 |
| commit | 7660d466718e064171973283cd9a48e72c4ac395 (patch) | |
| tree | 739c1e48f22a66386e0d9a7527566882b9c7f723 /Annex/Ssh.hs | |
| parent | 490211a7f9cf9080bc913a481d8e11865931e46b (diff) | |
shorter directory to external ssh socket
Before it was too long to be used.
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 = [] |