ignore failure to clean up stale transfer lock file

Perhaps due to permissions problem, or perhaps a race with another process
also cleaning up.

1 files changed, 9 insertions, 7 deletions

diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs
index 471b886b3..af6d19da6 100644
--- a/Logs/Transfer.hs
+++ b/Logs/Transfer.hs
@@ -145,13 +145,15 @@ checkTransfer t = do
 			StatusNoLockFile -> return Nothing
 			StatusUnLocked -> do
 				-- Take a non-blocking lock while deleting
-				-- the stale lock file.
-				r <- tryLockExclusive Nothing lck
-				case r of
-					Just lockhandle -> do
-						cleanstale
-						dropLock lockhandle
-					_ -> noop
+				-- the stale lock file. Ignore failure
+				-- due to permissions problems, races, etc.
+				void $ tryIO $ do
+					r <- tryLockExclusive Nothing lck
+					case r of
+						Just lockhandle -> do
+							cleanstale
+							dropLock lockhandle
+						_ -> noop
 				return Nothing
 #else
 	v <- liftIO $ lockShared $ transferLockFile tfile