From 05f65a454cc334633a8f3c84d4888b1e716a75dc Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Tue, 23 Jul 2019 17:31:51 -0700
Subject: [PATCH] filter out packets to self

---
 pkg/arvo/sys/vane/alef.hoon | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/pkg/arvo/sys/vane/alef.hoon b/pkg/arvo/sys/vane/alef.hoon
index 8c889b337..d01fb9b84 100644
--- a/pkg/arvo/sys/vane/alef.hoon
+++ b/pkg/arvo/sys/vane/alef.hoon
@@ -954,13 +954,20 @@
     |=  [=lane =packet]
     ^+  event-core
     ::
+    ?:  =(our sndr.packet)
+      ~&  %alef-self
+      event-core
+    ::
     %.  [lane packet]
     ::
     ?.  =(our rcvr.packet)
+      ~&  %alef-on-hear-forward
       on-hear-forward
     ::
     ?:  encrypted.packet
+      ~&  %alef-on-hear-shut
       on-hear-shut
+    ~&  %alef-on-hear-open
     on-hear-open
   ::  +on-hear-forward: maybe forward a packet to someone else
   ::
@@ -1425,34 +1432,26 @@
     =/  ship-state  (~(get by peers.ames-state) ship)
     ::
     ?.  ?=([~ %known *] ship-state)
-      ~&  %alef-send-blob-alien
       %+  enqueue-alien-todo  ship
       |=  todos=pending-requests
       todos(snd-packets (~(put in snd-packets.todos) blob))
-    ~&  %alef-send-blob-known
     ::
     =/  =peer-state  +.u.ship-state
     =/  =channel     [[our ship] now +>.ames-state -.peer-state]
     ::
     =*  try-next-sponsor
       ?:  =(ship her-sponsor.channel)
-        ~&  %alef-send-blob-ship-eq-her-sponsor
         event-core
-      ~&  %alef-send-blob-try-next-recurse
       $(ship her-sponsor.channel)
     ::
     ?~  route=route.peer-state
-      ~&  %alef-send-blob-no-route
       try-next-sponsor
     ::
-    ~&  %alef-send-blob-emit-to^ship
     =.  event-core
       (emit unix-duct.ames-state %give %send lane.u.route blob)
     ::
     ?:  direct.u.route
-      ~&  %alef-send-blob-direct-done
       event-core
-    ~&  %alef-send-blob-indirect-try-next
     try-next-sponsor
   ::  +got-peer-state: lookup .her state or crash
   ::