urbit/pkg/arvo/mar/naive.hoon

22 lines
271 B
Plaintext

:: naive state
::
/- *dice
/+ naive
::
|_ snap=snap-state
++ grab
|%
++ noun snap-state
++ mime
|= [mite =octs]
(noun (cue q.octs))
--
::
++ grow
|%
++ mime
[/application/x-naive (as-octs:mimes:html (jam snap))]
--
++ grad %mime
--