Get elevator json to frontend

This commit is contained in:
ronreg-ribdev 2020-06-01 01:21:31 -07:00
parent 8ce9df1ec8
commit c14bdfa147

View File

@ -183,8 +183,15 @@
|= response=client-response:iris |= response=client-response:iris
^- json ^- json
=, format =, format
~& response =/ handler |= jon=json
(pairs:enjs [[%yolo %b %.y] ~]) ?> ?=(%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 ++ poke-handle-http-request
|= =inbound-request:eyre |= =inbound-request:eyre