From f077e48112034da74fc7db52c0e290a2d994d3cd Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Fri, 1 Sep 2023 11:28:31 -0400
Subject: [PATCH] ames: fix saxo scry; emit on sponsor change too

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

diff --git a/pkg/arvo/sys/vane/ames.hoon b/pkg/arvo/sys/vane/ames.hoon
index c7578d4dda..271ba4b796 100644
--- a/pkg/arvo/sys/vane/ames.hoon
+++ b/pkg/arvo/sys/vane/ames.hoon
@@ -1856,6 +1856,11 @@
           *peer-state
         +.u.ship-state
       ::
+      ++  get-sponsors
+        ;;  (list ship)
+        =<  q.q  %-  need  %-  need
+        (rof ~ /ames %j `beam`[[our %saxo %da now] /(scot %p our)])
+      ::
       +|  %tasks
       ::  +on-take-flub: vane not ready to process message, pretend it
       ::                 was never delivered
@@ -2677,7 +2682,7 @@
           ^+  event-core
           ::
           ?:  =(our ship)
-            event-core
+            (emit unix-duct.ames-state %give %saxo get-sponsors)
           ::
           ?~  sponsor
             %-  (slog leaf+"ames: {(scow %p ship)} lost sponsor, ignoring" ~)
@@ -2704,6 +2709,7 @@
               ::
               ?:  =(our ship)
                 =.  rift.ames-state  rift.point
+                =.  event-core  (emit unix-duct.ames-state %give %saxo get-sponsors)
                 $(points t.points)
               ::
               ?.  (~(has by keys.point) life.point)
@@ -2845,17 +2851,12 @@
             :-  flow/`[~[/ames] /dead-flow `@da`(add now ~m2)]
             cork/`[~[/ames] /recork `@da`(add now ~d1)]
         ::
-        =/  sponsors
-          ;;  (list ship)
-          =<  q.q  %-  need  %-  need
-          (rof ~ /ames %j /(scot %p our)/saxo/(scot %da now)/(scot %p our))
-        ::
         %-  emil
         %+  weld
           dead-moves
         ^-  (list move)
         :~  [duct %give %turf turfs]
-            [duct %give %saxo sponsors]
+            [duct %give %saxo get-sponsors]
             [duct %pass /ping %g %deal [our our /ames] %ping %poke %noun !>(%kick)]
         ==
       ::  +on-vega: handle kernel reload