From f0b73ddd8bdb663ab70043e9424a99d2454cdf77 Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Tue, 11 May 2021 16:08:11 +0200 Subject: Hadrian: add comment to avoid surprises --- hadrian/src/Rules.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'hadrian') diff --git a/hadrian/src/Rules.hs b/hadrian/src/Rules.hs index eee14161cd..e06a99136d 100644 --- a/hadrian/src/Rules.hs +++ b/hadrian/src/Rules.hs @@ -106,8 +106,8 @@ packageRules = do -- classic concurrent read exclusive write (CREW) conflict. let maxConcurrentReaders = 1000 packageDb <- newResource "package-db" maxConcurrentReaders - let readPackageDb = [(packageDb, 1)] - writePackageDb = [(packageDb, maxConcurrentReaders)] + let readPackageDb = [(packageDb, 1)] -- this is correct: take 1 slot to read + writePackageDb = [(packageDb, maxConcurrentReaders)] -- and all the slots to write Rules.Compile.compilePackage readPackageDb Rules.Dependencies.buildPackageDependencies readPackageDb -- cgit v1.2.1