Merge pull request #3316 from urbit/dk-peek

updated on-peek for s3-store

pkg/arvo/app/launch.hoon

@@ -161,8 +161,11 @@
 ++  on-peek
   |=  =path
   ^-  (unit (unit cage))
-  ?+  path  (on-peek:def path)
-      [%x %keys ~]  ``noun+!>(~(key by tiles))
+  ?.  (team:title our.bowl src.bowl)  ~
+  ?+  path  [~ ~]
+      [%x %tiles ~]       ``noun+!>([tiles tile-ordering])
+      [%x %first-time ~]  ``noun+!>(first-time)
+      [%x %keys ~]        ``noun+!>(~(key by tiles))
   ==
 ::
 ++  on-arvo

pkg/arvo/app/s3-store.hoon

@@ -89,7 +89,18 @@
   --
 ::
 ++  on-leave  on-leave:def
-++  on-peek   on-peek:def
+++  on-peek
+  ~/  %s3-peek
+  |=  =path
+  ^-  (unit (unit cage))
+  ?.  (team:title our.bowl src.bowl)  ~
+  ?+    path  [~ ~]
+      [%x %credentials ~]
+    [~ ~ %s3-update !>(`update`[%credentials credentials])]
+  ::
+      [%x %configuration ~]
+    [~ ~ %s3-update !>(`update`[%configuration configuration])]
+  ==
 ++  on-agent  on-agent:def
 ++  on-arvo   on-arvo:def
 ++  on-fail   on-fail:def