Get elevator json to frontend
This commit is contained in:
parent
8ce9df1ec8
commit
c14bdfa147
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user