mall: add flag to default-agent to assist with errors

2025-01-03 04:40:50 +03:00 · 2019-11-08 13:56:35 -08:00 · 2019-11-08 13:56:35 -08:00 · 1688fe82fd
commit 1688fe82fd
parent 4ef1278cfa
7 changed files with 10 additions and 7 deletions
--- a/pkg/arvo/age/aqua.hoon
+++ b/pkg/arvo/age/aqua.hoon
@ -50,7 +50,7 @@
  +*  this       .
      aqua-core  +>
      ac         ~(. aqua-core bowl)
-      def        ~(. (default-agent this) bowl)
+      def        ~(. (default-agent this %|) bowl)
  ++  on-init           `this
  ++  on-save  !>(all-state)
  ++  on-load
--- a/pkg/arvo/age/chat-store.hoon
+++ b/pkg/arvo/age/chat-store.hoon
@ -27,7 +27,7 @@
  +*  this       .
      chat-core  +>
      cc         ~(. chat-core bowl)
-      def        ~(. (default-agent this) bowl)
+      def        ~(. (default-agent this %|) bowl)
  ::
  ++  on-init   on-init:def
  ++  on-save   !>(state)
--- a/pkg/arvo/age/dns-collector.hoon
+++ b/pkg/arvo/age/dns-collector.hoon
@ -35,7 +35,7 @@
 =|  state=app-state
 |_  =bowl:mall
 +*  this  .
-    def   ~(. (default-agent this) bowl)
+    def   ~(. (default-agent this %|) bowl)
 ::
 ++  on-init   on-init:def
 ++  on-save   !>(state)
--- a/pkg/arvo/age/language-server.hoon
+++ b/pkg/arvo/age/language-server.hoon
@ -36,7 +36,7 @@
  +*  this      .
      lsp-core  +>
      lsp       ~(. lsp-core bowl)
-      def       ~(. (default-agent this) bowl)
+      def       ~(. (default-agent this %|) bowl)
  ::
  ++  on-init
    ^+  on-init:*agent:mall
--- a/pkg/arvo/age/spider.hoon
+++ b/pkg/arvo/age/spider.hoon
@ -15,7 +15,7 @@
  +*  this  .
      spider-core  +>
      sc    ~(. spider-core bowl)
-      def   ~(. (default-agent this) bowl)
+      def   ~(. (default-agent this %|) bowl)
  ::
  ++  on-init   on-init:def
  ++  on-save   on-save:def
--- a/pkg/arvo/lib/default-agent.hoon
+++ b/pkg/arvo/lib/default-agent.hoon
@ -1,4 +1,8 @@
-|*  agent=*
+/+  skeleton
+|*  [agent=* help=*]
+?:  ?=(%& help)
+  ~|  %default-agent-helpfully-crashing
+  skeleton
 |_  =bowl:mall
 ++  on-init
  `agent
--- a/pkg/arvo/sys/vane/mall.hoon
+++ b/pkg/arvo/sys/vane/mall.hoon
@ -1582,7 +1582,6 @@
          %-  (slog >out=outgoing.subscribers.current-agent< leaf/"XXX remove" tang)
          (ap-specific-take way %watch-ack `tang)
        $(moves t.moves)
-      ~&  >>  %peer-new
      =.  outgoing.subscribers.current-agent
        (~(put by outgoing.subscribers.current-agent) [short-wire dock] [| path])
      $(moves t.moves, new-moves [move new-moves])