updated on-peek for s3-store
--
::
++ 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 (on-watch:def path)
+ [%x %credentials ~]
+ [~ ~ %s3-update !>(`noun`[%credentials credentials])]
+ [%x %configuration ~]
+ [~ ~ %s3-update !>(`noun`[%configuration configuration])]
+ ==
++ on-agent on-agent:def
++ on-arvo on-arvo:def
++ on-fail on-fail:def
