mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix windows transfer lock check

Browse source 
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 891c85cd88 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
This commit is contained in:
Joey Hess 2024-03-25 14:11:25 -04:00
parent 1ace305159
commit 62129f0b24
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Transfer.hs
View file

@ -171,7 +171,7 @@ runTransfer' ignorelock t eventualbackend afile stalldetection retrydecider tran
createAnnexDirectory $ P.takeDirectory lck createAnnexDirectory $ P.takeDirectory lck
catchMaybeIO (liftIO $ lockExclusive lck) >>= \case catchMaybeIO (liftIO $ lockExclusive lck) >>= \case
Nothing -> return (Nothing, False) Nothing -> return (Nothing, False)
Just Nothing -> return (Nothing, True) Just Nothing -> return (Nothing, False)
Just (Just lockhandle) -> do Just (Just lockhandle) -> do
createtfile createtfile
return (Just lockhandle, False) return (Just lockhandle, False)