Race between sending and receiving ws messages

cardano-scaling · Oct 19, 2023 · fcad6bc · fcad6bc
1 parent fa82bbd
commit fcad6bc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/hydraw/app/Main.hs b/hydraw/app/Main.hs
@@ -66,7 +66,7 @@ websocketApp :: Host -> WS.PendingConnection -> IO ()
 websocketApp host pendingConnection = do
   frontend <- WS.acceptRequest pendingConnection
   withClient host $ \backend ->
-    concurrently_
+   race_
       (forever $ WS.receive frontend >>= WS.send backend)
       (forever $ WS.receive backend >>= WS.send frontend)