From 784c3fa0139a5fc0ce459501d713cfe5c39d5a23 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 1 Mar 2016 13:47:49 -0400
Subject: comment

---
 Utility/LockPool/PidLock.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Utility/LockPool/PidLock.hs')

diff --git a/Utility/LockPool/PidLock.hs b/Utility/LockPool/PidLock.hs
index 8cacd4bf6..2b3ee67f9 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)
 
-- 
cgit v1.2.3