From 881f4b3d1f7a54c2a4c9bc7e0a661b50b16dcf42 Mon Sep 17 00:00:00 2001
From: Joe Bryan <joemfb@gmail.com>
Date: Mon, 22 Jul 2024 21:53:26 -0400
Subject: [PATCH] line: adds provisional +peek

---
 hoon/codegen/lib/line.hoon | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/hoon/codegen/lib/line.hoon b/hoon/codegen/lib/line.hoon
index 51b2fb5..e59dba7 100644
--- a/hoon/codegen/lib/line.hoon
+++ b/hoon/codegen/lib/line.hoon
@@ -1159,7 +1159,21 @@
 =+  ver=%1
 |%
 ++  this  .
-++  peek  ~|  %todo  !!
+::
+++  peek
+   |=  [s=* f=*]
+    =/  moat  (~(get ja moan) f)
+    |-  ^-  (unit [@uvre @uwoo ^fuji])  :: XX fix product type
+    ?~  moat  ~
+    ?.  (~(huge so:sack soot.i.moat) [& s])
+      $(moat t.moat)
+    ?~  u=(~(get by gong.fuji) [soot.i.moat f])
+      ~|  %not-in-gong  !!
+    =/  p
+      ~|  %not-in-gist
+      (~(got by gist.fuji) [soot.i.moat f])
+    `[sire.p u.u fuji]
+::
 ++  poke  ~|  %todo  !!
 ++  xray  ~|  %todo  !!
 --