Bump flake, use connectText.

Author: dmjio

cabal.project

@@ -9,4 +9,4 @@ flags: +template-haskell
 source-repository-package
   type: git
   location: https://github.com/dmjio/miso
-  tag: 62c1816d75e7a21ef0f9cb78d472cfa9e6fa30b4
+  tag: b150a33493e45eba0c32a52d8115120bb0d9ec04

flake.lock

@@ -51,7 +51,7 @@ app = (component emptyModel update_ appView)
 #endif
   } where
      emptyModel = Model 0 mempty
-     update_ (Close x) = do
+     update_ (Close x) =
        connections %= IS.delete x
      update_ AddWebSocket = do
        nextConnection += 1

src/Main.hs

@@ -13,7 +13,6 @@ module WebSocket (websocketComponent) where
 import           Control.Monad (unless)
 import           Data.Bool
 import           GHC.Generics
-import           Language.Javascript.JSaddle hiding (create)
 -----------------------------------------------------------------------------
 import           Miso hiding (on)
 import           Miso.Lens
@@ -36,11 +35,11 @@ instance ToMisoString Origin where
 -----------------------------------------------------------------------------
 data Action
   = OnOpen WebSocket
-  | OnMessage JSVal
+  | OnMessage MisoString
   | OnClosed Closed
-  | OnError JSVal
+  | OnError MisoString
   | Send
-  | SendMessage JSVal
+  | SendMessage MisoString
   | Update MisoString
   | Append Message
   | Connect
@@ -84,19 +83,23 @@ websocketComponent box =
   where
     updateModel = \case
       Send -> do
-        message <- use msg
-        unless (MS.null message) $ do 
-          io (SendMessage <$> toJSVal message)
+        m <- use msg
+        unless (MS.null m) $ do
+          issue (SendMessage m)
           io $ do
             date <- newDate
             dateString <- date & toLocaleString
-            pure $ Append (Message dateString message CLIENT)
-      SendMessage message -> do
+            pure $ Append (Message dateString m CLIENT)
+      SendMessage m -> do
         socket <- use websocket
-        send socket message
+        sendText socket m
       Connect ->
-        connect "wss://echo.websocket.org"
-          OnOpen OnClosed OnMessage OnError
+        connectText
+          "wss://echo.websocket.org"
+          OnOpen
+          OnClosed
+          OnMessage
+          OnError
       OnOpen socket -> do
         websocket .= socket
         connected .= True
@@ -109,16 +112,15 @@ websocketComponent box =
           pure $ Append (Message dateString "Disconnected..." SYSTEM)
       OnMessage message ->
         io $ do
-          message_ <- fromJSValUnchecked message
           date <- newDate
           dateString <- date & toLocaleString
-          pure $ Append (Message dateString message_ SERVER)
+          pure $ Append (Message dateString message SERVER)
       Append message ->
         received %= (message :)
       OnError err ->
         io_ $ do
           consoleLog "Error received"
-          consoleLog' err
+          consoleLog err
       Update input ->
         msg .= input
       NoOp ->