refactor
This commit is contained in:
parent
7f5958eec2
commit
f57ac29be1
2 changed files with 27 additions and 13 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue