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

comment

Browse source
This commit is contained in:
Joey Hess 2016-03-01 13:47:49 -04:00
parent 8933c21b5e
commit 26c499492f
Failed to extract signature
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/LockPool/PidLock.hs
View file

@ -33,6 +33,8 @@ import Prelude
-- Takes a pid lock, blocking until the lock is available or the timeout. -- Takes a pid lock, blocking until the lock is available or the timeout.
waitLock :: Seconds -> LockFile -> IO LockHandle waitLock :: Seconds -> LockFile -> IO LockHandle
waitLock timeout file = makeLockHandle waitLock timeout file = makeLockHandle
-- LockShared for STM lock, because a pid lock can be the top-level
-- lock with various other STM level locks gated behind it.
(P.waitTakeLock P.lockPool file LockShared) (P.waitTakeLock P.lockPool file LockShared)
(mk <$> F.waitLock timeout file) (mk <$> F.waitLock timeout file)