shorter directory to external ssh socket
Before it was too long to be used.
This commit is contained in:
parent
624e34649f
commit
00b465e213
2 changed files with 7 additions and 8 deletions
|
@ -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 = []
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue