diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-06-06 14:23:33 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-06-06 14:23:33 -0400 |
| commit | b7691dbca7acadcd2509324aee5716c39b3f2cf6 (patch) | |
| tree | 73722683d855bae308a2d05ec249a221e1322240 /Utility/LockFile/PidLock.hs | |
| parent | 6b986240d9397563a888e40edc3c11857b36a4c3 (diff) | |
remove temp file in failure case
Diffstat (limited to 'Utility/LockFile/PidLock.hs')
| -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') |