With withManager

This depends on kazu-yamamoto/http2#137.
Closes #190.

.github/workflows/haskell-ci.yml

@@ -172,7 +172,7 @@ jobs:
           echo "package grapesy" >> cabal.project
           echo "    ghc-options: -Werror=missing-methods" >> cabal.project
           cat >> cabal.project <<EOF
-          constraints: network-control==0.1.2
+          constraints: network-control==0.1.3
           allow-newer: proto-lens:base
           allow-newer: proto-lens-runtime:base
 

cabal.project

@@ -5,7 +5,7 @@ package grapesy
   benchmarks: True
   flags: +build-demo +build-stress-test +snappy
 
-constraints: network-control==0.1.2
+constraints: network-control==0.1.3
 
 --
 -- ghc 9.10

cabal.project.ci

@@ -6,7 +6,7 @@ package grapesy
   flags: +build-demo +build-stress-test +snappy +strace
   ghc-options: -Werror
 
-constraints: network-control==0.1.2
+constraints: network-control==0.1.3
 
 --
 -- ghc 9.10

grapesy.cabal

@@ -200,7 +200,7 @@ library
     , exceptions           >= 0.10    && < 0.11
     , hashable             >= 1.3     && < 1.5
     , http-types           >= 0.12    && < 0.13
-    , http2                >= 5.3     && < 5.4
+    , http2                >= 5.3.1   && < 5.4
     , http2-tls            >= 0.4.1   && < 0.5
     , lens                 >= 5.0     && < 5.4
     , mtl                  >= 2.2     && < 2.4
@@ -333,7 +333,7 @@ test-suite test-grapesy
     , containers                  >= 0.6   && < 0.8
     , exceptions                  >= 0.10  && < 0.11
     , http-types                  >= 0.12  && < 0.13
-    , http2                       >= 5.3   && < 5.4
+    , http2                       >= 5.3.1 && < 5.4
     , lens                        >= 5.0   && < 5.4
     , mtl                         >= 2.2   && < 2.4
     , network                     >= 3.1   && < 3.3

util/Network/GRPC/Util/HTTP2.hs

@@ -55,11 +55,7 @@ withConfigForInsecure ::
   -> (Server.Config -> IO a)
   -> IO a
 withConfigForInsecure sock k = do
-    -- TODO: <https://github.com/well-typed/grapesy/issues/190>
-    -- We should be using withManager instead.
-    bracket
-        (TimeManager.initialize (disableTimeout * 1_000_000))
-        (\_ -> return ()) $ \mgr -> do
+    TimeManager.withManager (disableTimeout * 1_000_000) $ \mgr -> do
       -- @recv@ does not provide a way to deallocate a buffer pool, and
       -- @http2-tls@ (in @freeServerConfig@) does not attempt to deallocate it.
       -- We follow suit here.