removing auxServerMaxStream because it is not suitable for HTTP/3

kazu-yamamoto · Nov 24, 2023 · 4b5d938 · 4b5d938
1 parent ab20537
commit 4b5d938
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 6 deletions.
diff --git a/Network/HTTP2/Client.hs b/Network/HTTP2/Client.hs
@@ -104,7 +104,6 @@ module Network.HTTP2.Client (
     -- * Aux
     Aux,
     auxPossibleClientStreams,
-    auxServerMaxStreams,
 
     -- * Types
     Method,

diff --git a/Network/HTTP2/Client/Internal.hs b/Network/HTTP2/Client/Internal.hs
@@ -1,6 +1,9 @@
 module Network.HTTP2.Client.Internal (
     Request (..),
     Response (..),
+    ClientConfig (..),
+    Settings (..),
+    Aux (..),
 
     -- * Low level
     Stream,

diff --git a/Network/HTTP2/Client/Run.hs b/Network/HTTP2/Client/Run.hs
@@ -67,7 +67,6 @@ run cconf@ClientConfig{..} conf client = do
     aux ctx =
         Aux
             { auxPossibleClientStreams = possibleClientStream ctx
-            , auxServerMaxStreams = serverMaxStreams ctx
             }
     clientCore ctx mgr req processResponse = do
         strm <- sendRequest ctx mgr scheme authority req

diff --git a/Network/HTTP2/Client/Types.hs b/Network/HTTP2/Client/Types.hs
@@ -19,8 +19,4 @@ newtype Response = Response InpObj deriving (Show)
 data Aux = Aux
     { auxPossibleClientStreams :: IO Int
     -- ^ How many streams can be created without blocking.
-    , auxServerMaxStreams :: IO Int
-    -- ^ Getting server's SETTINGS_MAX_CONCURRENT_STREAMS.
-    --   If the server does not inform it,
-    --   'maxBound' is used.
     }