From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 13 Nov 2015 16:52:24 +0000 (-0400)
Subject: clean up temp file
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~324^2~29
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=88d94e674cbfd39e2cf5c4324419184ae637e0d1;p=git-annex.git

clean up temp file
---

diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs
index 94c70e714d..d1ee6502a3 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