coding style only

kazu-yamamoto · Nov 11, 2024 · bcec0ec · bcec0ec
1 parent 98bdb5a
commit bcec0ec
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/Network/HTTP2/Client/Run.hs b/Network/HTTP2/Client/Run.hs
@@ -239,11 +239,12 @@ sendStreaming
     -> (OutBodyIface -> IO ())
     -> IO (TBQueue StreamingChunk)
 sendStreaming Context{..} strm strmbdy = do
-    let label = "H2 streaming supporter for stream " ++ show (streamNumber strm)
     tbq <- newTBQueueIO 10 -- fixme: hard coding: 10
     forkManagedUnmask threadManager label $ \unmask ->
         withOutBodyIface tbq unmask strmbdy
     return tbq
+  where
+    label = "H2 request streaming sender for stream " ++ show (streamNumber strm)
 
 exchangeSettings :: Context -> IO ()
 exchangeSettings Context{..} = do

diff --git a/Network/HTTP2/H2/Manager.hs b/Network/HTTP2/H2/Manager.hs
@@ -42,7 +42,7 @@ data TimeoutHandle
     | ThreadWithoutTimeout
 
 cancelTimeout :: TimeoutHandle -> IO ()
-cancelTimeout (ThreadWithTimeout h) = T.cancel h
+cancelTimeout (ThreadWithTimeout th) = T.cancel th
 cancelTimeout ThreadWithoutTimeout = return ()
 
 type ManagedThreads = Map ThreadId TimeoutHandle

diff --git a/Network/HTTP2/Server/Worker.hs b/Network/HTTP2/Server/Worker.hs
@@ -137,7 +137,6 @@ sendStreaming
     -> (OutBodyIface -> IO ())
     -> IO (TBQueue StreamingChunk)
 sendStreaming Context{..} strm th strmbdy = do
-    let label = "H2 streaming supporter for stream " ++ show (streamNumber strm)
     tbq <- newTBQueueIO 10 -- fixme: hard coding: 10
     forkManaged threadManager label $
         withOutBodyIface tbq id $ \iface -> do
@@ -154,6 +153,8 @@ sendStreaming Context{..} strm th strmbdy = do
                         }
             strmbdy iface'
     return tbq
+  where
+    label = "H2 response streaming sender for " ++ show (streamNumber strm)
 
 -- | Worker for server applications.
 worker :: Config -> Server -> Context -> Stream -> InpObj -> IO ()