def with_events

bendvy-ecs-core@0.1.0.4 · restore_schema.bend:85

import Base
import bendvy-ecs-core@0.1.0.4/change_tick.bend as Tick
import bendvy-ecs-core@0.1.0.4/restore_data.bend as R
import bendvy-ecs-core@0.1.0.4/restore_product.bend as Product
import bendvy-ecs-core@0.1.0.4/ordinary_schema.bend as Ordinary
import bendvy-ecs-core@0.1.0.4/owner_product.bend as Owner
import bendvy-ecs-core@0.1.0.4/decode_data.bend as D
import bendvy-ecs-core@0.1.0.4/world.bend as W

85# Lift user-resource restore over Product.Owner<Resources,Logs>, retaining actual
86# logs during basic schema insertion. Logs are not persisted fields; restore-runtime
87# performs the separate typed drain/stream-clearing boundary.
88def with_events(~S:Data,~C:Type,~Resources:Type,~Logs:Type,~State:Type,~Custom:Data,~stage:State -> R.Position -> D.Field -> State & R.Dispatch<Custom>,~release:State -> State,~clear:C -> W.Handle<S> -> C & List<&2,R.Change<S>>,~insert:C -> Resources -> State -> List<&2,R.Binding<S>> -> Tick.Tick -> (C & Resources) & State,~Recovery:Type,~commit:State -> State,~takeRecovery:State -> State & Recovery,schema:Schema<S,C,Resources,State,Custom,stage,release,clear,insert,Recovery,commit,takeRecovery>) -> Schema<S,C,Owner.Owner<Resources,Logs>,State,Custom,stage,release,clear,events_insert(~S,~C,~Resources,~Logs,~State,~Custom,~stage,~release,~clear,~insert),Recovery,commit,takeRecovery>:
89  match schema:
90    case Schema{Ordinary.Schema{entries}}:Schema{Ordinary.Schema{entries}}