ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 22:03:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Flatten spawn seeds to be derived from the owner seed

Browse Source
This commit is contained in:
Fang 2018-08-14 01:35:03 +02:00
parent ecb911a53a
commit aec81b4d50
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lib/keygen.hoon
View File

@ -50,22 +50,21 @@
(cn owner-seed "manage" manage.revs ~)
:- manage=manage
::
=/ transfer=(map ship node)
%- ~(rep in sis)
|= [s=ship n=(map ship node)]
%+ ~(put by n) s
(cn owner-seed "transfer" transfer.revs `s)
:- transfer=transfer
:- ^= transfer
%- ~(rep in sis)
|= [s=ship n=nodes]
%+ ~(put by n) s
(cn owner-seed "transfer" transfer.revs `s)
::
:- ^= spawn ^- nodes
%- ~(urn by transfer)
|= [s=ship n=node]
%+ cn [wid.owner-seed seed.n]
["spawn" spawn.revs `s]
:- ^= spawn
%- ~(rep in sis)
|= [s=ship n=nodes]
%+ ~(put by n) s
(cn owner-seed "spawn" spawn.revs `s)
::
^= network ^- uodes
^= network
%- ~(rep in sis)
|= [s=ship u=(map ship uode)]
|= [s=ship u=uodes]
%+ ~(put by u) s
=+ m=["network" network.revs `s]
=+ s=(seed:dr [wid.owner-seed seed.manage] m)