diff options
| -rw-r--r-- | Utility/LockFile/PidLock.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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') |