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

remove temp file in failure case

Browse source
This commit is contained in:
Joey Hess 2017-06-06 14:23:33 -04:00
parent ed639c140d
commit 19a6227e6e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Utility/LockFile/PidLock.hs
View file

@ -124,6 +124,7 @@ tryLock lockfile = trySideLock lockfile $ \sidelock -> do
hClose h hClose h
let failedlock st = do let failedlock st = do
dropLock $ LockHandle tmp st sidelock dropLock $ LockHandle tmp st sidelock
nukeFile tmp
return Nothing return Nothing
let tooklock st = return $ Just $ LockHandle lockfile' st sidelock let tooklock st = return $ Just $ LockHandle lockfile' st sidelock
ifM (linkToLock sidelock tmp lockfile') ifM (linkToLock sidelock tmp lockfile')