final fix to windows build

diff --git a/Annex/Content.hs b/Annex/Content.hs
index 0b1454a8615567f462c8ee13af580c12aa486409..4ad045d763bd34a3bbe14a58437b33ac9cb68ff6 100644 (file)
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -165,7 +165,7 @@ lockContentShared key mduration a = do
                )
 #else
        lock retention obj lckf = 
-               let (locker, postunlock) = winLocker lockShared' obj lckf
+               let (locker, postunlock) = winLocker lockShared obj lckf
                in 
                        ( locker >>= \case
                                Just lck -> do
@@ -182,7 +182,7 @@ lockContentShared key mduration a = do
                -- In order to dropretention, have to
                -- take an exclusive lock.
                let (exlocker, expostunlock) =
-                       winLocker lockExclusive' obj lckf
+                       winLocker lockExclusive obj lckf
                exlocker >>= \case
                        Nothing -> noop
                        Just lck -> do
@@ -242,7 +242,7 @@ lockContentForRemoval key fallback a = lockContentUsing lock key fallback $
 #else
        lock obj lckf = 
                let (exlocker, expostunlock) =
-                       winLocker lockExclusive' obj lckf
+                       winLocker lockExclusive obj lckf
                in (checkRetentionTimestamp key exlocker, expostunlock)
 #endif