From 88d94e674cbfd39e2cf5c4324419184ae637e0d1 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 13 Nov 2015 12:52:24 -0400
Subject: [PATCH] clean up temp file

---
 Utility/LockFile/PidLock.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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