def removal_batch_kept

bendvy-ecs-core@0.1.0.4 · ordinary_reader_stream_parameter.bend:493

import Base
import bendvy-ecs-core@0.1.0.4/event_runtime.bend as Ev
import bendvy-ecs-core@0.1.0.4/relation_commands.bend as Notice
import bendvy-ecs-core@0.1.0.4/ordinary_declaration.bend as Identity
import bendvy-ecs-core@0.1.0.4/removals.bend as Rm

493def removal_batch_kept(~S:Data,~P:Data,~Payload:Type,
494  ~select:Notice.Notice<S,P> -> Maybe<&2,Rm.Record<S,Identity.Declaration<S,Payload>>>,
495  batch:Ev.Batch<P>) -> Ev.Batch<P>:
496  match batch:
497    case Ev.Batch{tick,values}:Ev.Batch{tick,removal_publications_kept(~S,~P,~Payload,~select,values)}