urbit/gen/womb/balances.hoon

16 lines
369 B
Plaintext
Raw Normal View History

2016-10-22 02:44:39 +03:00
:: Inspect all invites
2016-04-30 00:40:44 +03:00
::
:::: /hoon/balance/womb/gen
::
/? 310
2017-11-30 00:28:33 +03:00
/+ hood-womb
2016-04-30 00:40:44 +03:00
:- %say
2016-08-12 10:18:04 +03:00
|= $: {now/@da eny/@uvJ bec/beak}
2016-04-30 00:40:44 +03:00
$~
who/(unit @p)
==
:- %womb-balance-all
=+ [him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now)]
2017-11-30 00:28:33 +03:00
=/ balances =>(hood-womb ,(set [passhash mail]))
2017-10-31 23:00:34 +03:00
.^(balances %gx /[him]/hood/[cas]/womb/balance/womb-balance-all)