blob: 4d1f952cc21afb9492593e4260c976722ad6c83a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
|%
++ give-ws-payload
|= [wid=@ event=websocket-event:eyre]
^- (list card:agent:gall)
=/ =cage
[%websocket-response !>([wid event])]
=/ wsid (scot %ud wid)
:~ [%give %fact ~[/websocket-server/[wsid]] cage]
==
++ accept-handshake |= wid=@
=/ response [%accept ~]
(give-ws-payload wid response)
++ refuse-handshake |= wid=@
=/ response [%reject ~]
(give-ws-payload wid response)
--
|
