Get elevator json to frontend

This commit is contained in:
ronreg-ribdev 2020-06-01 01:21:31 -07:00
parent 8ce9df1ec8
commit c14bdfa147
1 changed files with 9 additions and 2 deletions

View File

@ -183,8 +183,15 @@
|= response=client-response:iris
^- json
=, format
~& response
(pairs:enjs [[%yolo %b %.y] ~])
=/ handler |= jon=json
?> ?=(%o -.jon)
=/ root=json (~(got by p.jon) 'root')
?> ?=(%o -.root)
=/ bsa=json (~(got by p.root) 'bsa')
?> ?=(%a -.bsa)
~& -.bsa
(pairs:enjs [[%elevators %a p.bsa] ~])
(with-json-handler response handler)
::
++ poke-handle-http-request
|= =inbound-request:eyre