Desperately trying to make the tests work

integration/test/MLS/Util.hs

@@ -583,11 +583,11 @@ consumingMessages mlsProtocol mp = Codensity $ \k -> do
         map (,MLSNotificationMessageTag) (toList oldClients)
           <> map (,MLSNotificationWelcomeTag) (toList newClients)
 
-  let newUsers =
-        Set.delete mp.sender.user $
-          Set.difference
-            (Set.map (.user) newClients)
-            (Set.map (.user) oldClients)
+  -- let newUsers =
+  --       Set.delete mp.sender.user $
+  --         Set.difference
+  --           (Set.map (.user) newClients)
+  --           (Set.map (.user) oldClients)
   withWebSockets (map fst clients) $ \wss -> do
     r <- k ()
 

integration/test/Testlib/Run.hs

@@ -116,7 +116,7 @@ runTests tests mXMLOutput cfg = do
   runCodensity (mkGlobalEnv cfg) $ \genv ->
     withAsync displayOutput $ \displayThread -> do
       -- Currently 4 seems to be stable, more seems to create more timeouts.
-      report <- fmap mconcat $ pooledForConcurrentlyN 4 tests $ \(qname, _, _, action) -> do
+      report <- fmap mconcat $ pooledForConcurrentlyN 16 tests $ \(qname, _, _, action) -> do
         (mErr, tm) <- withTime (runTest genv action)
         case mErr of
           Left err -> do