diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-05-11 16:08:11 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-11 23:03:28 -0400 |
| commit | f0b73ddd8bdb663ab70043e9424a99d2454cdf77 (patch) | |
| tree | 78c2ff084adc342ea6a6bf67b5e32a8e663dc6f8 /hadrian | |
| parent | d22e8d895f507ac89dd3f5582beafbe1256402d9 (diff) | |
| download | haskell-f0b73ddd8bdb663ab70043e9424a99d2454cdf77.tar.gz | |
Hadrian: add comment to avoid surprises
Diffstat (limited to 'hadrian')
| -rw-r--r-- | hadrian/src/Rules.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |