migration: fixing state versions

This commit is contained in:
Hunter Miller 2022-12-08 07:53:00 -06:00
parent 45b9686b06
commit e4560339ec
2 changed files with 9 additions and 6 deletions

View File

@ -11,16 +11,17 @@
[%3 network:one:store]
[%4 network:store]
[%5 network:store]
state-6
[%6 network:store]
state-7
==
::-
+$ state-6 [%6 network:store]
+$ state-7 [%7 network:store]
++ orm orm:store
++ orm-log orm-log:store
++ mar %graph-update-3
--
::
=| state-6
=| state-7
=* state -
::
%- agent:dbug
@ -96,7 +97,9 @@
(scag 2 (tap:orm-log update-log))
==
::
%6 [cards this(state old)]
%6 $(-.old %7)
::
%7 [cards this(state old)]
==
::
++ on-watch

View File

@ -758,9 +758,9 @@
--
++ import
|= [arc=* our=ship]
^- (quip card:agent:gall [%6 network])
^- (quip card:agent:gall [%7 network])
|^
=/ sty [%6 (remake-network ;;(tree-network +.arc))]
=/ sty [%7 (remake-network ;;(tree-network +.arc))]
:_ sty
%+ turn ~(tap by graphs.sty)
|= [rid=resource =marked-graph]