urbit/gen/hood/transfer.hoon
2018-03-18 21:18:20 -07:00

18 lines
466 B
Plaintext

:: Womb: move all contents of invite to new email
::
:::: /hoon/transfer/hood/gen
::
/? 310
/+ hood-womb
::
::::
::
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
{{pas/@uvH who/@t ~} ~}
==
:- %womb-reinvite
=+ [him=(scot %p p.bec) cas=(scot %da now) key=(scot %uv pas)]
=+ [pla=planets sta=stars]:.^(balance:hood-womb %gx /[him]/hood/[cas]/womb/balance/[key]/womb-balance)
[pas who pla sta "Email updated, new passcode" "Email correction"]