From 6977515ead0eecf998023f42f095fa7a3b357a1a Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Thu, 9 Jul 2015 15:50:52 -0700
Subject: [PATCH] better type safety in %eyre injection

---
 arvo/eyre.hoon | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/arvo/eyre.hoon b/arvo/eyre.hoon
index 2cc5f44b1..fb4e739bb 100644
--- a/arvo/eyre.hoon
+++ b/arvo/eyre.hoon
@@ -757,11 +757,14 @@
           =+  bek=-:(need (tome p.tee))
           =+  bik=?+(r.bek bek [%ud %0] bek(r da/now))
           =-  (pass-note tee (ford-req bik [%flag [p.sih `~] -]))
-          =-  `silk`[%cast %mime `cay(q.q -)]
-          ?.  ?=([%ud 0] r.bek)  q.q.cay
-          ?+  p.cay  q.q.cay          :: inject dependency long-poll
-            %urb  =|  urb=[[%html ~] [[%head ~] marl] [[%body ~] manx marl] ~]
-                  .*(.(urb q.q.cay) !=((inject p.sih urb)))
+          =-  `silk`[%cast %mime `[p.cay -]]
+          ?.  ?=([%ud 0] r.bek)  q.cay
+          ?+  p.cay  q.cay          :: inject dependency long-poll
+            %urb  =<  (slam !>(.) q.cay)
+                  |=  urb=manx
+                  ~|  %malformed-urb
+                  ?>  ?=([[%html ~] [[%head ~] *] [[%body ~] ^] ~] urb)
+                  (inject p.sih urb)
           ==
         ~|  q.q.cay
         =+  ((hard ,[mit=mite rez=octs]) q.q.cay)