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

final fix to windows build

Browse source
This commit is contained in:
Joey Hess 2024-07-29 16:32:24 -04:00
parent 73703d1bef
commit dc11c5f493
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Annex/Content.hs
View file

@ -165,7 +165,7 @@ lockContentShared key mduration a = do
) )
#else #else
lock retention obj lckf = lock retention obj lckf =
let (locker, postunlock) = winLocker lockShared' obj lckf let (locker, postunlock) = winLocker lockShared obj lckf
in in
( locker >>= \case ( locker >>= \case
Just lck -> do Just lck -> do
@ -182,7 +182,7 @@ lockContentShared key mduration a = do
-- In order to dropretention, have to -- In order to dropretention, have to
-- take an exclusive lock. -- take an exclusive lock.
let (exlocker, expostunlock) = let (exlocker, expostunlock) =
winLocker lockExclusive' obj lckf winLocker lockExclusive obj lckf
exlocker >>= \case exlocker >>= \case
Nothing -> noop Nothing -> noop
Just lck -> do Just lck -> do
@ -242,7 +242,7 @@ lockContentForRemoval key fallback a = lockContentUsing lock key fallback $
#else #else
lock obj lckf = lock obj lckf =
let (exlocker, expostunlock) = let (exlocker, expostunlock) =
winLocker lockExclusive' obj lckf winLocker lockExclusive obj lckf
in (checkRetentionTimestamp key exlocker, expostunlock) in (checkRetentionTimestamp key exlocker, expostunlock)
#endif #endif