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

Remove test code

Browse Source
This commit is contained in:
ronreg-ribdev 2020-05-24 02:04:40 -07:00
parent f363f38275
commit a06ab76385
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
urbit/app/bartinfo.hoon
View File

@ -74,12 +74,11 @@
^- (quip card _this) ^- (quip card _this)
~& "on-watch path: {<path>}" ~& "on-watch path: {<path>}"
?: ?=([%primary *] path) ?: ?=([%primary *] path)
=/ initial-resp [%give %fact ~ %json !>((bogus-json:cc))]
=/ bart-station-request =/ bart-station-request
=/ out *outbound-config:iris =/ out *outbound-config:iris
=/ req bart-api-request-stations:cc =/ req bart-api-request-stations:cc
[%pass /bartstationrequest %arvo %i %request req out] [%pass /bartstationrequest %arvo %i %request req out]
[~[initial-resp bart-station-request] this] [~[bart-station-request] this]
?: ?=([%http-response *] path) ?: ?=([%http-response *] path)
`this `this
?. =(/ path) ?. =(/ path)
@ -145,7 +144,6 @@
[%'~bartinfo' %css %index ~] (css-response:gen style) [%'~bartinfo' %css %index ~] (css-response:gen style)
[%'~bartinfo' %js %tile ~] (js-response:gen tile-js) [%'~bartinfo' %js %tile ~] (js-response:gen tile-js)
[%'~bartinfo' %js %index ~] (js-response:gen script) [%'~bartinfo' %js %index ~] (js-response:gen script)
[%'~bartinfo' %js %bogus ~] (js-response:gen (json-to-octs (bogus-json)))
:: ::
[%'~bartinfo' %img @t *] [%'~bartinfo' %img @t *]
=/ name=@t i.t.t.site.url =/ name=@t i.t.t.site.url
@ -156,11 +154,4 @@
:: ::
[%'~bartinfo' *] (html-response:gen index) [%'~bartinfo' *] (html-response:gen index)
== ==
++ bogus-json
|= ~
^- json
%- pairs:enjs:format
:~
success+b+%.y
==
-- --