fourmolu

kazu-yamamoto · Nov 7, 2023 · 592ee93 · 592ee93
1 parent 48758bd
commit 592ee93
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Network/HTTP2/Arch/Stream.hs b/Network/HTTP2/Arch/Stream.hs
@@ -79,7 +79,8 @@ remove ref k = atomicModifyIORef' ref $ \StreamTable{..} ->
 search :: IORef StreamTable -> M.Key -> IO (Maybe Stream)
 search ref k = M.lookup k . streams <$> readIORef ref
 
-updateAllStreamWindow :: (WindowSize -> WindowSize) -> IORef StreamTable -> IO ()
+updateAllStreamWindow
+    :: (WindowSize -> WindowSize) -> IORef StreamTable -> IO ()
 updateAllStreamWindow adst ref = do
     strms <- streams <$> readIORef ref
     forM_ strms $ \strm -> atomically $ modifyTVar (streamWindow strm) adst