mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

clean up temp file

Browse source
This commit is contained in:
Joey Hess 2015-11-13 12:52:24 -04:00
parent e31a51c5bb
commit 88d94e674c
Failed to extract signature
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/LockFile/PidLock.hs
View file

@ -93,7 +93,9 @@ tryLock lockfile = trySideLock lockfile $ \sidelock -> do
return Nothing return Nothing
let tooklock = return $ Just $ LockHandle lockfile fd sidelock let tooklock = return $ Just $ LockHandle lockfile fd sidelock
ifM (isJust <$> catchMaybeIO (createLink tmp lockfile)) ifM (isJust <$> catchMaybeIO (createLink tmp lockfile))
( tooklock ( do
nukeFile tmp
tooklock
, do , do
v <- readPidLock lockfile v <- readPidLock lockfile
hn <- getHostName hn <- getHostName