From 6826651f2d3a414b0a05730a3ff577ae0922a62f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 30 Apr 2025 22:18:15 +0200
Subject: Show and send direct messages

---
 src/WebSocket.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/WebSocket.hs')

diff --git a/src/WebSocket.hs b/src/WebSocket.hs
index 19d30c4..68feae8 100644
--- a/src/WebSocket.hs
+++ b/src/WebSocket.hs
@@ -50,10 +50,10 @@ startClient addr port path fun = do
     connInQueue <- newChan
     let conn = Connection {..}
 
-    onOpen <- JS.asEventListener $ \_ -> do
+    JS.addEventListener connJS "open" $ \_ -> do
         fun conn
 
-    onMessage <- JS.asEventListener $ \ev -> do
+    JS.addEventListener connJS "message" $ \ev -> do
         bytes <- js_get_data ev
         len <- js_get_byteLength bytes
         ptr <- mallocBytes len
@@ -61,8 +61,6 @@ startClient addr port path fun = do
         bs <- unsafePackCStringFinalizer ptr len (free ptr)
         writeChan connInQueue bs
 
-    JS.addEventListener connJS (toJSString "open") onOpen
-    JS.addEventListener connJS (toJSString "message") onMessage
 
 sendMessage :: Connection -> ByteString -> IO ()
 sendMessage Connection {..} bs = do
-- 
cgit v1.2.3