From 5256280b424d69db92a8b9d91ed637fe074ede1c Mon Sep 17 00:00:00 2001
From: rabsef-bicrym <52549148+rabsef-bicrym@users.noreply.github.com>
Date: Thu, 5 May 2022 11:58:18 -0700
Subject: [PATCH] correcting aesthetic points

---
 pkg/garden/ted/get-dudes.hoon | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/pkg/garden/ted/get-dudes.hoon b/pkg/garden/ted/get-dudes.hoon
index 5e45bea254..f176df62aa 100644
--- a/pkg/garden/ted/get-dudes.hoon
+++ b/pkg/garden/ted/get-dudes.hoon
@@ -3,37 +3,37 @@
 ::
 =,  strand=strand:spider
 ::
-::  send on /spider/garden/json/get-dudes/json
+::  send on /desk/dude
 ::
 |%
 ++  buds                                                 ::  get agents currently running
-  |=  p=@tas
-  =/  m  (strand ,(list @tas))
+  |=  p=desk
+  =/  m  (strand ,(list dude:gall))
   ^-  form:m
-  ?.  =(%base p)
-    ;<  q=(list @tas)  bind:m  (suds p)
+  ?.  =(%$ p)
+    ;<  q=(list dude:gall)  bind:m  (suds p)
     (pure:m q)
-  ;<  q=(list @tas)  bind:m  duds
-  =|  r=(list (list @tas))
+  ;<  q=(list desk)  bind:m  duds
+  =|  r=(list (list dude:gall))
   |-  ^-  form:m
-  =*  loop  $
+  =*  s  $
   ?~  q  (pure:m (zing r))
-  ;<  t=(list @tas)  bind:m  (suds i.q)
-  loop(q t.q, r [t r])
+  ;<  t=(list dude:gall)  bind:m  (suds i.q)
+  s(q t.q, r [t r])
 ::
 ++  suds                                                 ::  clean %ge scry
-  |=  p=@tas
-  =/  m  (strand ,(list @tas))
+  |=  p=desk
+  =/  m  (strand ,(list dude:gall))
   ^-  form:m
-  ;<  q=(set [@tas ?])  bind:m
-    (scry (set ,[@tas ?]) /ge/(scot %tas p))
+  ;<  q=(set [dude:gall ?])  bind:m
+    (scry (set ,[dude:gall ?]) /ge/(scot %tas p))
   %-  pure:m
-  (murn ~(tap in q) |=([@tas ?] ?.(+.+< ~ `-.+<)))
+  (murn ~(tap in q) |=([dude:gall ?] ?.(+.+< ~ `-.+<)))
 ::
 ++  duds                                                 ::  get desks
-  =/  m  (strand ,(list @tas))
+  =/  m  (strand ,(list desk))
   ^-  form:m
-  ;<  p=(set @tas)  bind:m  (scry (set ,@tas) /cd/base)
+  ;<  p=(set desk)  bind:m  (scry (set ,desk) /cd/base)
   (pure:m ~(tap in p))
 --
 ::