greg
/
bart-tile
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More json cleanup

This commit is contained in:
ronreg-ribdev 2020-06-05 03:35:12 -07:00
parent 0293b9c6ee
commit c718c49ceb
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
urbit/app/bartinfo.hoon
View File

@ -183,10 +183,8 @@
=, format
=/ handler |= jon=json
=/ root=json ((ot:dejs ~[['root' same]]) jon)
=/ bsa=json ((ot:dejs ~[['bsa' same]]) root)
?> ?=(%a -.bsa)
~& -.bsa
(pairs:enjs [[%elevators %a p.bsa] ~])
=/ bsa=(list json) ((ot:dejs ~[['bsa' (ar:dejs same)]]) root)
(pairs:enjs [[%elevators %a bsa] ~])
(with-json-handler response handler)
::
++ bart-api-routeplan
@ -207,7 +205,8 @@
=/ handler
|= jon=json
=/ root=json ((ot:dejs [['root' same] ~]) jon)
root
=/ schedule=json ((ot:dejs [['schedule' same] ~]) root)
(pairs:enjs ~[[%routes schedule]])
(with-json-handler response handler)
++ poke-handle-json
|= jon=json