Latest http2 fixes the unclosed client problem

See kazu-yamamoto/http2#151 for the `http2` bug report. Closes #257.
well-typed · Nov 16, 2024 · 2df5536 · 2df5536
1 parent 80302ba
commit 2df5536
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/cabal.project b/cabal.project
@@ -18,9 +18,6 @@ package grapesy
   benchmarks: True
   flags: +build-demo +build-stress-test 
 
--- constraints: http2==5.3.4
--- constraints: http2==5.3.5
-
 source-repository-package
   type: git
   location: https://github.com/kazu-yamamoto/http2

diff --git a/grapesy/test-grapesy/Test/Sanity/Reclamation.hs b/grapesy/test-grapesy/Test/Sanity/Reclamation.hs
@@ -33,7 +33,7 @@ serverException1 = testClientServer $ ClientServerTest {
       config = def
     , server = [Server.someRpcHandler $ Server.mkRpcHandler brokenHandler]
     , client = \params testServer delimitTestScope -> delimitTestScope $
-        replicateM_ 20_000 $
+        replicateM_ 1000 $ do
           Client.withConnection params testServer $ \conn ->
             Client.withRPC conn def (Proxy @Ping) $ \call -> do
               resp <- try $ Client.recvFinalOutput call
@@ -47,7 +47,7 @@ serverException2 = testClientServer $ ClientServerTest {
       config = def
     , server = [Server.someRpcHandler $ Server.mkRpcHandler brokenHandler]
     , client = \params testServer delimitTestScope -> delimitTestScope $
-        replicateM_ 20_000 $
+        replicateM_ 1000 $
           Client.withConnection params testServer $ \conn ->
             Client.withRPC conn def (Proxy @Ping) $ \call -> do