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

Correct elevator URL

Browse Source
This commit is contained in:
ronreg-ribdev 2020-06-01 00:36:08 -07:00
parent ed15a2a5a7
commit 9f2550edc7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
urbit/app/bartinfo.hoon
View File

@ -168,13 +168,14 @@
:: ::
++ bart-api-elevator-status ++ bart-api-elevator-status
^- request:http ^- request:http
=/ url (crip "{bart-api-url-base}/stn.aspx?cmd=stns&key={bart-api-key}&json=y") =/ url (crip "{bart-api-url-base}/bsa.aspx?cmd=elev&key={bart-api-key}&json=y")
=/ headers [['Accept' 'application/json']]~ =/ headers [['Accept' 'application/json']]~
[%'GET' url headers *(unit octs)] [%'GET' url headers *(unit octs)]
++ parse-elevator-status-response ++ parse-elevator-status-response
|= response=client-response:iris |= response=client-response:iris
^- json ^- json
=, format =, format
~& response
(pairs:enjs [[%yolo %b %.y] ~]) (pairs:enjs [[%yolo %b %.y] ~])
:: ::
++ poke-handle-http-request ++ poke-handle-http-request