Use half the available capabilities

This is faster for me, for some weird reason.
ollef · Apr 6, 2020 · f7b0e9d · f7b0e9d
1 parent f2c942b
commit f7b0e9d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Driver.hs b/src/Driver.hs
@@ -317,7 +317,7 @@ pooledForConcurrentlyIO_ as f = do
               _ <- f a
               go
             )
-  replicateConcurrently_ processCount go
+  replicateConcurrently_ ((processCount + 1) `div` 2) go
 
 pooledForConcurrentlyIO
   :: Traversable t
@@ -344,7 +344,7 @@ pooledForConcurrentlyIO as f = do
               atomicWriteIORef ref result
               go
             )
-  replicateConcurrently_ processCount go
+  replicateConcurrently_ ((processCount + 1) `div` 2) go
   forM jobs $ \(_, ref) ->
     readIORef ref