shorter directory to external ssh socket

Before it was too long to be used.
This commit is contained in:
Joey Hess 2013-02-19 17:31:08 -04:00
parent 624e34649f
commit 00b465e213
2 changed files with 7 additions and 8 deletions

View file

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