From 26c499492f433caf3ff846b42c3e2f5615f17554 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Mar 2016 13:47:49 -0400 Subject: [PATCH] comment --- Utility/LockPool/PidLock.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Utility/LockPool/PidLock.hs b/Utility/LockPool/PidLock.hs index 8cacd4bf62..2b3ee67f9b 100644 --- a/Utility/LockPool/PidLock.hs +++ b/Utility/LockPool/PidLock.hs @@ -33,6 +33,8 @@ import Prelude -- Takes a pid lock, blocking until the lock is available or the timeout. waitLock :: Seconds -> LockFile -> IO LockHandle 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) (mk <$> F.waitLock timeout file)