blob: b8dd583cfc7da15d6d43e543ea82e525b3fd243e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
/- spider
/+ strandio
=, strand=strand:spider
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
^- form:m
=/ url=@t (need !<((unit @t) arg))
;< =bowl:spider bind:m get-bowl:strandio
=/ desk q.byk.bowl
=/ =task:iris [%websocket-connect desk url]
=/ =card:agent:gall [%pass /ws-req %arvo %i task]
;< ~ bind:m (send-raw-card:strandio card)
;< res=(pair wire sign-arvo) bind:m take-sign-arvo:strandio
?. ?=([%iris %websocket-handshake id=@ud url=@t] q.res)
(strand-fail:strand %bad-sign ~)
~& ws-handshake=[id.q.res url.q.res]
:: ?: ?=([%iris %websocket-response id=@ud e=websocket-event:eyre] q.res)
=/ data=@t 'done'
(pure:m !>(data))
|
