group-store: only run rebuild once

This commit is contained in:
Hunter Miller 2023-01-04 12:40:18 -06:00
parent 563aed6b7f
commit 9316aebec7

View File

@ -41,6 +41,7 @@
state-one state-one
state-two state-two
state-three state-three
state-four
== ==
:: ::
+$ state-zero +$ state-zero
@ -61,9 +62,15 @@
=groups =groups
wait=(set ship) wait=(set ship)
== ==
::
+$ state-four
$: %4
=groups
wait=(set ship)
==
-- --
:: ::
=| state-three =| state-four
=* state - =* state -
:: ::
%- agent:dbug %- agent:dbug
@ -84,10 +91,15 @@
=| cards=(list card) =| cards=(list card)
|^ |^
?- -.old ?- -.old
%3 %4 [(flop cards) this(state old)]
:_ this(state old) ::
:_ cards %3
[%pass /pyre/rebuild %agent [our dap]:bowl %poke noun+!>(%rebuild)] %_ $
old [%4 +.old]
cards
:_ cards
[%pass /pyre/rebuild %agent [our dap]:bowl %poke noun+!>(%rebuild)]
==
:: ::
%2 %2
%_ $ %_ $
@ -391,8 +403,8 @@
|= arc=* |= arc=*
^- (quip card _state) ^- (quip card _state)
|^ |^
=/ sty=state-three =/ sty=state-four
[%3 (remake-groups ;;((tree [resource tree-group]) +.arc)) ~] [%4 (remake-groups ;;((tree [resource tree-group]) +.arc)) ~]
:_ sty :_ sty
%+ roll ~(tap by groups.sty) %+ roll ~(tap by groups.sty)
|= [[rid=resource grp=group] out=(list card)] |= [[rid=resource grp=group] out=(list card)]