clean up temp file

diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs
index 94c70e714d7156f57b7ba07633104b1b0fc82ea3..d1ee6502a3b62f1670140de6f344ed3526925da0 100644 (file)
--- 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