/-  sur=nostr
/+  js=json-nostr
/=  web  /web/router
|%

++  handle
  |=  [eyre-id=@ta req=inbound-request:eyre]
  ^-  (unit [url=@ event=event:sur])
  ?~  body.request.req  ~
  =/  jstring  q.u.body.request.req
  =/  ures  (de:json:html jstring)
  ?~  ures  ~
  (msg:de:js u.ures)
++  send
  |=  [desk=@tas =req:shim:sur]  ^-  card:agent:gall
    =/  req-body  (req:en:js req)
    =/  headers  :~
      [key='content-type' value='application/json']
    ==
    =/  =request:http  [%'POST' url:shim:sur headers `(json-body:web req-body)]
    =/  pat  /shim
    [%pass (weld /ws pat) %arvo %k %fard desk %fetch %noun !>(request)]  
--