git.iko.soy/elk
on 79a747c help sign in
elk/libraries/Native/WebSocket.js
39 lines 929 B history raw
1/*
2import Signal
3import JavaScript
4import List
5*/
7(function() {
8 'use strict';
10 var JS = Elm.JavaScript;
12 function open(url) { return function(outgoing) {
13 var incoming = Elm.Signal.constant(Elm.Native.List.Nil);
14 var ws = new window.WebSocket(JS.castStringToJSString(url));
16 var pending = [];
17 var ready = false;
19 ws.onopen = function(e) {
20 var len = pending.length;
21 for (var i = 0; i < len; ++i) { ws.send(pending[i]); }
22 ready = true;
23 };
24 ws.onmessage = function(event) {
25 Dispatcher.notify(incoming.id, JS.castJSStringToString(event.data));
26 };
28 function send(msg) {
29 var s = JS.castStringToJSString(msg);
30 ready ? ws.send(s) : pending.push(s);
31 }
33 function take1(x) { return function(y) { return x; } }
34 return Elm.Signal.lift2(take1)(incoming)(Elm.Signal.lift(send)(outgoing));
35 };
36 }
38 Elm.Native.WebSocket = {open:open};
39}());