From 9cb8fea1ffa531387fee9db43d331d47c1f98c0d Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 6 Apr 2015 16:49:35 -0700
Subject: [PATCH] urb.send wires

---
 arvo/eyre.hoon | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/arvo/eyre.hoon b/arvo/eyre.hoon
index dac440890e..d43cda7eba 100644
--- a/arvo/eyre.hoon
+++ b/arvo/eyre.hoon
@@ -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