From b7691dbca7acadcd2509324aee5716c39b3f2cf6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 6 Jun 2017 14:23:33 -0400 Subject: remove temp file in failure case --- Utility/LockFile/PidLock.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Utility') diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs index 0db9d1f3f..3a46ecdf8 100644 --- 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') -- cgit v1.2.3