From 6ec8037be864f70e61753fdd6fe3f65def3aaafd Mon Sep 17 00:00:00 2001
From: Liam Fitzgerald <liam.fitzgerald@tlon.io>
Date: Mon, 16 Nov 2020 13:53:18 +1000
Subject: [PATCH] hark-store: allow scrying for archive

---
 package-lock.json            | Bin 27 -> 0 bytes
 pkg/arvo/app/hark-store.hoon |  13 ++++++++-----
 2 files changed, 8 insertions(+), 5 deletions(-)
 delete mode 100644 package-lock.json

diff --git a/package-lock.json b/package-lock.json
deleted file mode 100644
index 48e341a0954d5f8c2accf3a6731be28e5bb9c0de..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 27
icmb>CQczIJ$xqHs%gjj)OD!tS%+FJ@QZVGI<pKbBg$Pvu

diff --git a/pkg/arvo/app/hark-store.hoon b/pkg/arvo/app/hark-store.hoon
index 85b0c4e66..476ea8d92 100644
--- a/pkg/arvo/app/hark-store.hoon
+++ b/pkg/arvo/app/hark-store.hoon
@@ -109,21 +109,24 @@
   ^-  (unit (unit cage))
   ?+  path  (on-peek:def path)
     ::
-      [%x %recent @ @ ~]
+      [%x %recent ?(%archive %inbox) @ @ ~]
+    =/  is-archive
+      =(%archive i.t.t.path)
     =/  offset=@ud
-      (slav %ud i.t.t.path)
-    =/  length=@ud
       (slav %ud i.t.t.t.path)
+    =/  length=@ud
+      (slav %ud i.t.t.t.t.path)
     :^  ~  ~  %hark-update
     !>  ^-  update:store
     :-  %more
     %+  turn
       %+  scag  length
       %+  slag  offset
-      (tap-nonempty:ha notifications)
+      %-  tap-nonempty:ha 
+      ?:(is-archive archive notifications)
     |=  [time=@da =timebox:store]
     ^-  update:store
-    :^  %timebox  time  %.n
+    :^  %timebox  time  is-archive
     ~(tap by timebox)
   ==
 ::