ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-02 15:13:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix apex:earn to print leading slash, in conformance to zest:urlp

Browse Source
This commit is contained in:
Anton Dyudin 2015-12-07 16:49:11 -08:00
parent b3ea66fab3
commit 09d882edb7
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/eyre.hoon
View File

@ -1194,7 +1194,7 @@
::
%poll
?: ?=([~ %js] p.pok) :: XX treat non-json cases?
=+ polling-url=['/' (apex:earn %| pok(u.p %json) quy)]
=+ polling-url=(apex:earn %| pok(u.p %json) quy)
[%& %js (add-json (joba %wurl (jape polling-url)) poll:js)]
=. lyv (~(put by lyv) hen %wasp p.hem)
|-

8
arvo/zuse.hoon
View File

@ -1255,10 +1255,10 @@
=< |=(pul=purl `tape`(apex ~ pul))
|%
++ apex
|= qur=quri
|= qur=quri ^- tape
?- -.qur
%& (weld (head p.p.qur) `tape`['/' $(qur [%| +.p.qur])])
%| (weld (body p.qur) (tail q.qur))
%& (weld (head p.p.qur) $(qur [%| +.p.qur]))
%| ['/' (weld (body p.qur) (tail q.qur))]
==
::
++ body
@ -1283,7 +1283,7 @@
?~(rit ~ (weld (trip i.rit) ?~(t.rit "" `tape`['.' $(rit t.rit)])))
==
::
?~(q.har ~ `tape`[':' (trip (rsh 3 2 (scot %ui u.q.har)))])
?~(q.har ~ `tape`[':' ((d-co:co 1) u.q.har)])
==
::
++ tail