blob: 9faea96c20bfd60c04f12ceb9c22fbc007e36f75 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
|%
++ 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)
--
|
