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

urb.send wires

Browse Source
This commit is contained in:
Anton Dyudin 2015-04-06 16:49:35 -07:00
parent 4be4aa208a
commit 9cb8fea1ff
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
arvo/eyre.hoon
View File

@ -146,7 +146,7 @@
[%bugs p=?(%as %to) ~]
[%beam p=beam]
[%deps p=?(%put %delt) q=@uvH]
[%mess p=hasp q=mark r=json]
[%mess p=hasp q=mark r=wire s=json]
[%poll p=@uvH]
[%spur p=spur]
[%subs p=?(%put %delt) q=[p=hasp %json q=path]]
@ -780,7 +780,8 @@
[~ (rash q.i.quy dem)]
::
%to
=- [%mess [- +<]:dir +>.dir (need-body (ot:jo xyro/some ~))]
?> =('/' (need-body (ot wire/so ~):jo)) :: XX custom
=- [%mess [- +<]:dir +>.dir / (need-body (ot:jo xyro/some ~))]
^= dir
=+ ful=(read but %p %tas %tas ~)
?^ ful u.ful
@ -860,11 +861,10 @@
==
::
%mess
=+ [him=him:for-view cay=[%json !>(`json`r.hem)]]
=+ wir=/ :: XX custom
=+ [him=him:for-view cay=[%json !>(`json`s.hem)]]
?: ?=(%json q.hem)
[%| ((teba new-mess:for-view) p.hem wir cay)]
:^ %& %| [%to need-ixor (scot %p p.p.hem) q.p.hem wir]
[%| ((teba new-mess:for-view) p.hem r.hem cay)]
:^ %& %| [%to need-ixor (scot %p p.p.hem) q.p.hem r.hem]
(ford-req [%cast q.hem %done ~ cay])
::
%poll