using concurrently_ for servers

kazu-yamamoto · Apr 6, 2023 · b25867f · b25867f
1 parent 96e6963
commit b25867f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Network/HTTP2/Server/Run.hs b/Network/HTTP2/Server/Run.hs
@@ -3,7 +3,7 @@
 
 module Network.HTTP2.Server.Run where
 
-import UnliftIO.Async (race_)
+import UnliftIO.Async (concurrently_)
 import qualified UnliftIO.Exception as E
 
 import Imports
@@ -33,7 +33,7 @@ run conf@Config{..} server = do
         replicateM_ 3 $ spawnAction mgr
         let runReceiver = frameReceiver ctx conf
             runSender   = frameSender   ctx conf mgr
-        race_ runReceiver runSender `E.finally` stop mgr
+        concurrently_ runReceiver runSender `E.finally` stop mgr
   where
     checkPreface = do
         preface <- confReadN connectionPrefaceLength