diff --git a/pkg/arvo/lib/desk-jam.hoon b/pkg/arvo/lib/desk-jam.hoon index ce178ae851..4441d08393 100644 --- a/pkg/arvo/lib/desk-jam.hoon +++ b/pkg/arvo/lib/desk-jam.hoon @@ -4,10 +4,17 @@ |= [our=ship =desk now=@da] ~> %slog.0^leaf/"jamming desk {}" %- jam + %- ?:(=(%base desk) remove-tmp-dir same) %- ankh-to-map =< ank .^(dome:clay %cv /(scot %p our)/[desk]/(scot %da now)) :: +++ remove-tmp-dir + |= fiz=(map path page) + ^- (map path page) + %- ~(gas by *(map path page)) + (skip ~(tap by fiz) |=([p=path *] ?=([%tmp *] p))) +:: ++ ankh-to-map =| res=(map path page) =| pax=path