diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-10-09 10:30:22 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-09 10:30:22 -0400 |
| commit | bd0c751b267c080ba28a6efeb88b1c0af293429f (patch) | |
| tree | 392ae425adfbe0324f53b6c7502ae98acb5c05f7 /Annex/Content.hs | |
| parent | 9b613b4275987d2a5424c8995b304e2a45e9cc66 (diff) | |
refactor
Diffstat (limited to 'Annex/Content.hs')
| -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 |