diff --git a/hydraw/app/Main.hs b/hydraw/app/Main.hs
index 1d0a9fd317e..a82999c8ac9 100644
--- 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)