diff --git a/pkg/arvo/ted/sane.hoon b/pkg/arvo/ted/sane.hoon new file mode 100644 index 000000000..c4f1830ed --- /dev/null +++ b/pkg/arvo/ted/sane.hoon @@ -0,0 +1,30 @@ +/- spider +/+ *strandio +=> +|% +++ strand strand:spider +:: +++ supported-apps + ^- (list term) + :~ %graph-pull-hook + %group-pull-hook + == +:: +++ poke-all-sane + =/ m (strand ,~) + ^- form:m + =/ apps supported-apps + |- =* loop $ + ?~ apps + (pure:m ~) + =* app i.apps + ;< ~ bind:m (poke-our app sane+!>(%sane)) + loop(apps t.apps) +-- +:: +^- thread:spider +|= vase +=/ m (strand ,vase) +;< ~ bind:m poke-all-sane +;< ~ bind:m (poke-our %sane noun+!>(%fix)) +(pure:m !>("Done"))