using the new name

Network/HTTP2/Frame.hs

@@ -133,6 +133,7 @@ module Network.HTTP2.Frame (
 ) where
 
 import qualified Data.ByteString as BS
+import Network.Control (WindowSize)
 
 import Imports
 import Network.HTTP2.Frame.Decode

Network/HTTP2/Frame/Encode.hs

@@ -14,6 +14,7 @@ import qualified Data.ByteString as BS
 import Data.ByteString.Internal (unsafeCreate)
 import Foreign.Ptr (Ptr, plusPtr)
 import qualified Network.ByteOrder as N
+import Network.Control (WindowSize)
 
 import Imports
 import Network.HTTP2.Frame.Types

Network/HTTP2/Frame/Types.hs

@@ -5,6 +5,7 @@
 module Network.HTTP2.Frame.Types where
 
 import Data.Ix
+import Network.Control (WindowSize)
 import Text.Read
 import qualified Text.Read.Lex as L
 
@@ -212,9 +213,6 @@ updateSettings settings kvs = foldl' update settings kvs
     update def _                                = def
 {- FOURMOLU_ENABLE -}
 
--- | The type for window size.
-type WindowSize = Int
-
 -- | The default initial window size.
 --
 -- >>> defaultWindowSize

Network/HTTP2/H2/Window.hs

@@ -17,20 +17,20 @@ import Network.HTTP2.H2.Types
 
 getStreamWindowSize :: Stream -> IO WindowSize
 getStreamWindowSize Stream{streamTxFlow} =
-    txFlowWindow <$> readTVarIO streamTxFlow
+    txWindowSize <$> readTVarIO streamTxFlow
 
 getConnectionWindowSize :: Context -> IO WindowSize
 getConnectionWindowSize Context{txFlow} =
-    txFlowWindow <$> readTVarIO txFlow
+    txWindowSize <$> readTVarIO txFlow
 
 waitStreamWindowSize :: Stream -> IO ()
 waitStreamWindowSize Stream{streamTxFlow} = atomically $ do
-    w <- txFlowWindow <$> readTVar streamTxFlow
+    w <- txWindowSize <$> readTVar streamTxFlow
     checkSTM (w > 0)
 
 waitConnectionWindowSize :: Context -> STM ()
 waitConnectionWindowSize Context{txFlow} = do
-    w <- txFlowWindow <$> readTVar txFlow
+    w <- txWindowSize <$> readTVar txFlow
     checkSTM (w > 0)
 
 ----------------------------------------------------------------
@@ -39,7 +39,7 @@ waitConnectionWindowSize Context{txFlow} = do
 increaseWindowSize :: StreamId -> TVar TxFlow -> WindowSize -> IO ()
 increaseWindowSize sid tvar n = do
     atomically $ modifyTVar' tvar $ \flow -> flow{txfLimit = txfLimit flow + n}
-    w <- txFlowWindow <$> readTVarIO tvar
+    w <- txWindowSize <$> readTVarIO tvar
     when (isWindowOverflow w) $ do
         let msg = fromString ("window update for stream " ++ show sid ++ " is overflow")
             err =