ignore failure to clean up stale transfer lock file

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

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.
+				-- the stale lock file. Ignore failure
-				r <- tryLockExclusive Nothing lck
+				-- due to permissions problems, races, etc.
-				case r of
+				void $ tryIO $ do
-					Just lockhandle -> do
+					r <- tryLockExclusive Nothing lck
-						cleanstale
+					case r of
-						dropLock lockhandle
+						Just lockhandle -> do
-					_ -> noop
+							cleanstale
+							dropLock lockhandle
+						_ -> noop
 				return Nothing
 #else
 	v <- liftIO $ lockShared $ transferLockFile tfile