blob: e53159cdbef0619ce00ebcd1a2611bc7e47a70f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
/- sur=nostr
/+ js=json-nostr, sr=sortug,
server,
ws=websockets
|%
++ parse-client-msg
|= jon=json ^- (unit client-msg:sur)
(client-msg:de:js jon)
++ ok-client-event |= [=event:sur ok=? msg=@t]
^- relay-msg:sur
[%ok id.event ok msg]
++ ws-response
|= [wid=@ msg=relay-msg:sur] ^- (list card:agent:gall)
=/ jon (relay-msg:en:js msg)
=/ octs (json-to-octs:server jon)
=/ res-event=websocket-event:eyre [%message 1 `octs]
(give-ws-payload:ws wid res-event)
--
|
