From 5d575212bf0266e1e09bfc2d1c489e98a45fb1b6 Mon Sep 17 00:00:00 2001 From: yosoyubik Date: Mon, 24 Apr 2023 18:28:44 +0200 Subject: [PATCH] ames: fix -keen thread --- pkg/arvo/ted/keen.hoon | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/pkg/arvo/ted/keen.hoon b/pkg/arvo/ted/keen.hoon index 59af353917..b83a351d12 100644 --- a/pkg/arvo/ted/keen.hoon +++ b/pkg/arvo/ted/keen.hoon @@ -6,15 +6,18 @@ =/ m (strand ,vase) ^- form:m =+ !<([~ arg=[ship path]] arg) -;< dat=(unit (cask)) bind:m +;< dat=(unit roar:ames) bind:m (keen:strandio arg) ?~ dat (pure:m !>(~)) ;< =bowl:spider bind:m get-bowl:strandio +=/ [=path data=(unit (cask))] dat.u.dat +?~ data + (pure:m !>(~)) =+ .^ =dais:clay %cb - /(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/[p.u.dat] + /(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/[p.u.data] == -=/ res (mule |.((vale.dais q.u.dat))) +=/ res (mule |.((vale.dais q.u.data))) ?: ?=(%| -.res) ~|(%keen-mark-fail (mean leaf+"-keen: ames vale fail {}" p.res)) (pure:m p.res)