From 9be338b1973474afa03b0a785e215d5e6762a48e Mon Sep 17 00:00:00 2001 From: Liam Fitzgerald Date: Wed, 15 Jul 2020 14:26:50 +1000 Subject: [PATCH] file-server: scry for %base desk hash --- pkg/arvo/app/file-server.hoon | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/pkg/arvo/app/file-server.hoon b/pkg/arvo/app/file-server.hoon index c39b5838f8..fbc5e836d1 100644 --- a/pkg/arvo/app/file-server.hoon +++ b/pkg/arvo/app/file-server.hoon @@ -223,7 +223,28 @@ == :: ++ on-leave on-leave:def -++ on-peek on-peek:def +++ on-peek + |= =path + ^- (unit (unit cage)) + |^ + ?+ path (on-peek:def path) + [%x %clay %base %hash ~] ``hash+!>(base-hash) + == + :: stolen from +trouble + :: TODO: move to a lib? + ++ base-hash + ^- @uv + =+ .^ ota=(unit [=ship =desk =aeon:clay]) + %gx /(scot %p our.bowl)/hood/(scot %da now.bowl)/kiln/ota/noun + == + ?~ ota + *@uv + =/ parent (scot %p ship.u.ota) + =+ .^(=cass:clay %cs /[parent]/[desk.u.ota]/1/late/foo) + %^ end 3 3 + .^(@uv %cz /[parent]/[desk.u.ota]/(scot %ud ud.cass)) + -- + ++ on-agent on-agent:def ++ on-fail on-fail:def --