shorter directory to external ssh socket

Before it was too long to be used.

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 = []