diff options
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Content.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index d0596644e..da29aa4ed 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -183,10 +183,7 @@ contentLockFile key = Just <$> calcRepo (gitAnnexContentLock key) lockContentShared :: Key -> (VerifiedCopy -> Annex a) -> Annex a lockContentShared key a = lockContentUsing lock key $ do u <- getUUID - bracketIO - (invalidatableVerifiedCopy VerifiedCopyLock u) - invalidateVerifiedCopy - a + withVerifiedCopy VerifiedCopyLock u a where #ifndef mingw32_HOST_OS lock contentfile Nothing = liftIO $ tryLockShared Nothing contentfile |