add lockContentShared
Also, rename lockContent to lockContentExclusive inAnnexSafe should perhaps be eliminated, and instead use `lockContentShared inAnnex`. However, I'm waiting on that, as there are only 2 call sites for inAnnexSafe and it's fiddly.
This commit is contained in:
parent
f52d4b684d
commit
4d50958ed7
11 changed files with 100 additions and 50 deletions
|
@ -123,7 +123,7 @@ toPerform dest move key afile fastcheck isthere =
|
|||
finish
|
||||
where
|
||||
finish
|
||||
| move = lockContent key $ \contentlock -> do
|
||||
| move = lockContentExclusive key $ \contentlock -> do
|
||||
removeAnnex contentlock
|
||||
next $ Command.Drop.cleanupLocal key
|
||||
| otherwise = next $ return True
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue