Fix bug preventing moving files to/from a repository with annex.pidlock set.

This commit is contained in:
Joey Hess 2016-03-01 12:47:07 -04:00
parent f219ffc33b
commit ad888a6b76
Failed to extract signature
4 changed files with 20 additions and 1 deletions

View file

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