shrub/gen/womb/balances.hoon
2018-03-18 21:18:20 -07:00

16 lines
368 B
Plaintext

:: Inspect all invites
::
:::: /hoon/balance/womb/gen
::
/? 310
/+ hood-womb
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
~
who/(unit @p)
==
:- %womb-balance-all
=+ [him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now)]
=/ balances =>(hood-womb ,(set [passhash mail]))
.^(balances %gx /[him]/hood/[cas]/womb/balance/womb-balance-all)