From 31cc219997d9092cbae8218e983014b534ef71e5 Mon Sep 17 00:00:00 2001
From: yosoyubik <yosoyubik@gmail.com>
Date: Sun, 25 Apr 2021 15:37:01 +0200
Subject: [PATCH] naive: support "get point" scry

---
 pkg/arvo/app/azimuth.hoon | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/pkg/arvo/app/azimuth.hoon b/pkg/arvo/app/azimuth.hoon
index 70fdd8bcd4..45e165469b 100644
--- a/pkg/arvo/app/azimuth.hoon
+++ b/pkg/arvo/app/azimuth.hoon
@@ -256,11 +256,19 @@
 ++  on-leave  on-leave:def
 ++  on-peek
   |=  =path
-  ?:  =(/x/nas path)
-    ``nas+!>(nas.state)
-  ?:  =(/x/logs path)
+  ^-  (unit (unit cage))
+  ?+  path  (on-peek:def path)
+      [%x %logs ~]
     ``logs+!>(logs.state)
-  ~
+  ::
+      [%x %nas ~]
+    ``nas+!>(nas.state)
+  ::
+      [%x %nas @t ~]
+    ?~  ship=(rush i.t.t.path ;~(pfix sig fed:ag))
+      ``noun+!>(*(unit point:naive))
+    ``noun+!>((~(get by points.nas.state) u.ship))
+  ==
 ::
 ++  on-agent
   |=  [=wire =sign:agent:gall]