diff options
Diffstat (limited to 'Utility/LockFile')
| -rw-r--r-- | Utility/LockFile/PidLock.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs index 94c70e714..d1ee6502a 100644 --- a/Utility/LockFile/PidLock.hs +++ b/Utility/LockFile/PidLock.hs @@ -93,7 +93,9 @@ tryLock lockfile = trySideLock lockfile $ \sidelock -> do return Nothing let tooklock = return $ Just $ LockHandle lockfile fd sidelock ifM (isJust <$> catchMaybeIO (createLink tmp lockfile)) - ( tooklock + ( do + nukeFile tmp + tooklock , do v <- readPidLock lockfile hn <- getHostName |