git.iko.soy/elk
on 62d30f2 help sign in
elk/core/Native/WebSocket.js
33 lines 892 B history raw
2function nativeWebSocket(elm) {
3 "use strict";
4 var JS = Elm.JavaScript;
6 function open(url) { return function(outgoing) {
7 var incoming = Elm.Signal.constant(Elm.Native.List.Nil);
8 var ws = new window.WebSocket(JS.castStringToJSString(url));
10 var pending = [];
11 var ready = false;
13 ws.onopen = function(e) {
14 var len = pending.length;
15 for (var i = 0; i < len; ++i) { ws.send(pending[i]); }
16 ready = true;
17 };
18 ws.onmessage = function(event) {
19 Dispatcher.notify(incoming.id, JS.castJSStringToString(event.data));
20 };
22 function send(msg) {
23 var s = JS.castStringToJSString(msg);
24 ready ? ws.send(s) : pending.push(s);
25 }
27 function take1(x) { return function(y) { return x; } }
28 return Elm.Signal.lift2(take1)(incoming)(Elm.Signal.lift(send)(outgoing));
29 };
30 }
32 elm.Native.WebSocket = {open:open};