fix windows transfer lock check

If the lock file was not able to be exclusivlely locked, don't indicate
locking failed. I'm pretty sure this was a typo. It goes all the way
back to 891c85cd88c5a90daf7d18160eeddd1483e8c649 where locking was first
introduced on windows, and there's no indication of why it would make
sense to return True here.

Sponsored-by: Leon Schuermann on Patreon

diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs
index 7bf0ca365bf4a05792019f70b2cf783773d17562..501faac1ed4eca989d8f2c464566774aed743332 100644 (file)
--- a/Annex/Transfer.hs
+++ b/Annex/Transfer.hs
@@ -171,7 +171,7 @@ runTransfer' ignorelock t eventualbackend afile stalldetection retrydecider tran
                createAnnexDirectory $ P.takeDirectory lck
                catchMaybeIO (liftIO $ lockExclusive lck) >>= \case
                        Nothing -> return (Nothing, False)
-                       Just Nothing -> return (Nothing, True)
+                       Just Nothing -> return (Nothing, False)
                        Just (Just lockhandle) -> do
                                createtfile
                                return (Just lockhandle, False)