remove temp file in failure case

2017-06-06 14:23:33 -04:00 · 2017-06-06 14:23:33 -04:00 · 19a6227e6e
commit 19a6227e6e
parent ed639c140d
1 changed files with 1 additions and 0 deletions
--- a/Utility/LockFile/PidLock.hs
+++ b/Utility/LockFile/PidLock.hs
@ -124,6 +124,7 @@ tryLock lockfile = trySideLock lockfile $ \sidelock -> do
 	hClose h
 	let failedlock st = do
 		dropLock $ LockHandle tmp st sidelock
+		nukeFile tmp
 		return Nothing
 	let tooklock st = return $ Just $ LockHandle lockfile' st sidelock
 	ifM (linkToLock sidelock tmp lockfile')