fourmolu

kazu-yamamoto · Nov 18, 2023 · de4ecb6 · de4ecb6
1 parent 823436f
commit de4ecb6
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/Network/HTTP2/Client/Run.hs b/Network/HTTP2/Client/Run.hs
@@ -57,8 +57,8 @@ run cconf@ClientConfig{..} conf client = do
     serverMaxStreams ctx = do
         mx <- maxConcurrentStreams <$> readIORef (peerSettings ctx)
         case mx of
-          Nothing -> return maxBound
-          Just x  -> return x
+            Nothing -> return maxBound
+            Just x -> return x
     possibleClientStream ctx = do
         x <- serverMaxStreams ctx
         n <- oddConc <$> readTVarIO (oddStreamTable ctx)

diff --git a/Network/HTTP2/H2/Context.hs b/Network/HTTP2/H2/Context.hs
@@ -104,8 +104,8 @@ newContext rinfo conf@Config{..} cacheSiz maxConc rxws =
         -- The spec defines max concurrency is infinite unless
         -- SETTINGS_MAX_CONCURRENT_STREAMS is exchanged.
         -- But it is vulnerable, so we set the limitations.
-        <*> newIORef defaultSettings { maxConcurrentStreams = Just maxConc }
-        <*> newIORef defaultSettings { maxConcurrentStreams = Just maxConc }
+        <*> newIORef defaultSettings{maxConcurrentStreams = Just maxConc}
+        <*> newIORef defaultSettings{maxConcurrentStreams = Just maxConc}
         <*> newTVarIO emptyOddStreamTable
         <*> newTVarIO (emptyEvenStreamTable cacheSiz)
         <*> newIORef Nothing