Fix bug preventing moving files to/from a repository with annex.pidlock set.
This commit is contained in:
parent
f219ffc33b
commit
ad888a6b76
4 changed files with 20 additions and 1 deletions
|
@ -33,7 +33,7 @@ import Prelude
|
|||
-- Takes a pid lock, blocking until the lock is available or the timeout.
|
||||
waitLock :: Seconds -> LockFile -> IO LockHandle
|
||||
waitLock timeout file = makeLockHandle
|
||||
(P.waitTakeLock P.lockPool file LockExclusive)
|
||||
(P.waitTakeLock P.lockPool file LockShared)
|
||||
(mk <$> F.waitLock timeout file)
|
||||
|
||||
-- Tries to take a pid lock, but does not block.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue