landscape: fix wire consistency in migration

This commit is contained in:
Liam Fitzgerald 2022-11-23 12:43:11 +10:00
parent d5f3374756
commit bc787310d9
2 changed files with 14 additions and 6 deletions

View File

@ -66,7 +66,7 @@
=* state -
::
%- agent:dbug
%+ verb |
%+ verb &
^- agent:gall
=<
|_ =bowl:gall
@ -87,8 +87,13 @@
::
%2
%_ $
old [%3 groups ~]
cards :_(cards [%pass / %agent [our dap]:bowl %poke noun+!>(%migrate)])
old [%3 groups.old ~]
cards
%- welp
:_ cards
:~ [%pass / %agent [our dap]:bowl %poke noun+!>(%migrate)]
[%pass / %agent [our %hood]:bowl %poke %kiln-install !>([%new-groups ~zod %groups])]
==
==
::
%1
@ -175,6 +180,8 @@
++ on-agent
|= [=wire =sign:agent:gall]
^- (quip card _this)
?: ?=([%gladio ~] wire)
(on-agent:def wire sign)
?: ?=([%gladio @ ~] wire)
=^ cards state
(take-migrate:gc sign)
@ -222,12 +229,12 @@
^- card
[%pass /gladio/(scot %p ship) %agent [ship %groups] %watch /init]
=/ cards (welp cards-1 cards-2)
~& cards
[cards state(wait wait)]
::
++ take-migrate
|= =sign:agent:gall
^- (quip card _state)
~& migrating/src.bol
?: ?=(%poke-ack -.sign)
`state
:_ state(wait (~(del in wait) src.bol))

View File

@ -48,13 +48,14 @@
(turn ~(tap in ~(key by graphs.network)) head)
++ poke-our
|= [=dude:gall =cage]
[%pass /gladio/[dude] %agent [our.bowl dude] %poke cage]
[%pass /gladio %agent [our.bowl dude] %poke cage]
++ migrate-start
^- (quip card (set ship))
=+ network
=+ groups
=+ associations
=/ ships (peers network)
~& ships/ships
=/ dms (~(get by graphs:network) [our.bowl %dm-inbox])
=/ import (import-for-mark our.bowl groups associations network)
=/ chats=imports:graph:i
@ -109,7 +110,7 @@
=+ groups
=+ network
=+ associations
=/ import (import-for-mark our.bowl groups associations network)
=/ import (import-for-mark her groups associations network)
=/ chats=imports:graph:i
(import %graph-validator-chat)
=/ diarys=imports:graph:i