dev(WebSocket): support onOpen, onClose

based on elm-lang/websocket#19 - merged with binary data support
Namek · Jul 14, 2017 · 6cca059 · 6cca059
1 parent e5f84c4
commit 6cca059
Show file tree

Hide file tree

Showing 2 changed files with 173 additions and 103 deletions.
diff --git a/client/src/Main.elm b/client/src/Main.elm
@@ -99,6 +99,8 @@ updateSystemStats systems index entitiesCount maxEntitiesCount =
 type Msg
   = Input String
   | Send
+  | OnWebsocketOpen String
+  | OnWebsocketClose String
   | NewNetworkMessage MessageData
   | Msg_Unknown
   | Msg_OnAddedSystem Int String (Maybe BitVector) (Maybe BitVector) (Maybe BitVector)
@@ -125,6 +127,20 @@ update msg model =
       , WebSocket.send websocketUrl (ArrayBuffer (stringToBufferArray input))
       )
 
+    OnWebsocketOpen url ->
+      let
+        _ =
+          Debug.log "websocket open" url
+      in
+      model ! []
+
+    OnWebsocketClose url ->
+      let
+        _ =
+          Debug.log "websocket close" url
+      in
+      model ! []
+
     NewNetworkMessage (String str) ->
       { model | messages = str :: messages } ! []
 
@@ -289,7 +305,11 @@ deserializePacket objModelNodes valueTrees componentTypes bytes =
 
 subscriptions : Model -> Sub Msg
 subscriptions model =
-  WebSocket.listen websocketUrl NewNetworkMessage
+  Sub.batch
+    [ WebSocket.listen websocketUrl NewNetworkMessage
+    , WebSocket.onOpen OnWebsocketOpen
+    , WebSocket.onClose OnWebsocketClose
+    ]