mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

5
Annex/Content.hs
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