ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-14 04:19:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add quy to ford-boil's sample.

Browse Source
This commit is contained in:
Jeremy Wall 2016-01-28 20:02:10 -06:00
parent 9f6946aff3
commit ff351c405e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/eyre.hoon
View File

@ -941,7 +941,7 @@
++ pass-note (teba ^pass-note) ++ pass-note (teba ^pass-note)
:: ::
++ ford-boil ++ ford-boil
|= [wir=whir ext=term bem=beam] |= [wir=whir ext=term bem=beam quy=quay]
=+ yac=for-client =+ yac=for-client
=. him.yac ?.(aut anon him.yac) =. him.yac ?.(aut anon him.yac)
=: r.bem ?+(r.bem r.bem [%ud %0] da/now) =: r.bem ?+(r.bem r.bem [%ud %0] da/now)
@ -969,7 +969,7 @@
%html (give-html 200 cug p.pez) %html (give-html 200 cug p.pez)
%htme (give-html 401 cug p.pez) %htme (give-html 401 cug p.pez)
%boil %boil
(ford-boil(quy payload.pez) [p.pez q.pez r.pez]) (ford-boil [p.pez q.pez r.pez payload.pez])
%red %red
=+ url=(earn hat pok(p [~ %html]) quy) =+ url=(earn hat pok(p [~ %html]) quy)
?+ p.pok ~|(bad-redirect/[p.pok url] !!) ?+ p.pok ~|(bad-redirect/[p.pok url] !!)
@ -1170,7 +1170,7 @@
?< =([~ 0] (sky %cw (tope bem(+ ~, r [%da now])))) ?< =([~ 0] (sky %cw (tope bem(+ ~, r [%da now]))))
?. aut ?. aut
[%& %boil [wir ext bem nquy]] [%& %boil [wir ext bem nquy]]
[%| (ford-boil(quy nquy) [wir ext bem])] :: XX properly [%| (ford-boil [wir ext bem nquy])] :: XX properly
:: ::
:: ::
%bugs %bugs