This commit is contained in:
Joey Hess 2015-10-09 10:30:22 -04:00
parent 7f5958eec2
commit f57ac29be1
Failed to extract signature
2 changed files with 27 additions and 13 deletions

View file

@ -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