From db7fa8334097903b2775c98cbb0d548c9e386fd6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 26 Apr 2025 20:25:06 +0200
Subject: WebSocket API wrappers for Haskell

---
 src/Main.hs | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index d201708..83d2d8a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -2,6 +2,7 @@ module Main (main, setup) where
 
 import Control.Monad.Reader
 
+import Data.ByteString qualified as B
 import Data.Maybe
 import Data.Proxy
 import Data.Text qualified as T
@@ -15,6 +16,9 @@ import Erebos.Storage
 
 import System.IO.Unsafe
 
+import JavaScript qualified as JS
+import WebSocket
+
 main :: IO ()
 main = error "unused"
 
@@ -39,9 +43,9 @@ setup = do
         js_set_textContent nameElem $ toJSString $ T.unpack $ displayIdentity $ headLocalIdentity ls
 
     buttonElem <- js_document_getElementById (toJSString "some_button")
-    buttonCallback <- asEventListener onButtonClick
+    buttonCallback <- JS.asEventListener onButtonClick
 
-    js_addEventListener buttonElem (toJSString "click") buttonCallback
+    JS.addEventListener buttonElem (toJSString "click") buttonCallback
 
     let name = T.pack "My Name"
         devName = T.pack "WebApp"
@@ -66,6 +70,10 @@ setup = do
                 , lsShared = [ shared ]
                 , lsOther = []
                 }
+
+    startClient "localhost" 9160 "" $ \conn -> do
+        sendMessage conn $ B.pack [ 98 .. 107 ]
+
     return ()
 
 
@@ -100,8 +108,3 @@ foreign import javascript unsafe "document.createTextNode($1)"
 foreign import javascript unsafe "$1.value"
     js_get_value :: JSVal -> IO JSString
 
-foreign import javascript unsafe "$1.addEventListener($2, $3)"
-    js_addEventListener :: JSVal -> JSString -> JSVal -> IO ()
-
-foreign import javascript "wrapper"
-    asEventListener :: (JSVal -> IO ()) -> IO JSVal
-- 
cgit v1.2.3