shrub/pkg/arvo/mar/hall/prize.hoon
2019-07-16 15:59:39 -07:00

43 lines
1023 B
Plaintext

::
:::: /mar/hall/prize/hoon
::
/- hall
/+ hall-json
::
|_ piz/prize:hall
::
++ grab ::: convert from
|%
++ noun prize:hall ::: from %noun
++ json ::: from %json
=, dejs:hall-json
=, dejs-soft:format
|= a/json
^- prize:hall
=- (need ((of -) a))
:~ client+pici
circles+(as so)
public+(as circ)
:: burden not needed
:: report not needed
circle+pack
==
--
::
++ grow ::: convert to
|%
++ json ::: to %json
=, enjs:hall-json
=, enjs:format
%+ frond -.piz
?+ -.piz !!
$client (pici +.piz)
$circles (sa cis.piz cord:enjs:hall-json)
$public (sa cis.piz circ)
:: burden not needed
:: report not needed
$circle (pack +.piz)
==
--
--