using the new name

kazu-yamamoto · Nov 17, 2023 · f062112 · f062112
1 parent 5180d8a
commit f062112
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Network/QUIC/IO.hs b/Network/QUIC/IO.hs
@@ -108,8 +108,8 @@ checkBlocked s len wait = atomically $ do
     let conn = streamConnection s
     strmFlow <- readStreamFlowTx s
     connFlow <- readConnectionFlowTx conn
-    let strmWindow = txFlowWindow strmFlow
-        connWindow = txFlowWindow connFlow
+    let strmWindow = txWindowSize strmFlow
+        connWindow = txWindowSize connFlow
         minFlow = min strmWindow connWindow
         n = min len minFlow
     when wait $ checkSTM (n > 0)