shrub/pkg/arvo/ted/keen.hoon

/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([~ arg=[ship path]] arg)
;<  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.data]
    ==
=/  res  (mule |.((vale.dais q.u.data)))
?:  ?=(%| -.res)
  ~|(%keen-mark-fail (mean leaf+"-keen: ames vale fail {<mark>}" p.res))
(pure:m p.res)