groups: propagate remove correctly

This commit is contained in:
Liam Fitzgerald 2020-05-04 10:25:40 +10:00
parent 774f7f53f0
commit 68324ec71b

View File

@ -215,7 +215,9 @@
=/ ship (~(get by synced.state) pax.diff) =/ ship (~(get by synced.state) pax.diff)
?~ ship [~ state] ?~ ship [~ state]
?. =(src.bol u.ship) [~ state] ?. =(src.bol u.ship) [~ state]
?. (~(has in members.diff) our.bol) [~ state] ?. (~(has in members.diff) our.bol)
:_ state
[(group-poke pax.diff diff)]~
=/ changes (poke-group-hook-action [%remove pax.diff]) =/ changes (poke-group-hook-action [%remove pax.diff])
:_ +.changes :_ +.changes
%+ welp -.changes %+ welp -.changes