def barrier_state
bendvy-ecs-core@0.1.0.4 · ordinary_app_execution.bend:180
import bendvy-ecs-core@0.1.0.4/ordinary_app_execution.bend as OrdinaryAppExecution
import Base
import bendvy-ecs-core@0.1.0.4/world.bend as W
180def barrier_state(~S:Data,~C:Type,~R:Type,~E:Data,~H:Type,~Error:Data,owner:H & ExecutionState<Error>,world:W.World<S,C,R,E>) -> (H & ExecutionState<Error>) & W.World<S,C,R,E>:
181 match owner:
182 case (owners,Off{}):((owners,Off{}),W.barrier(~S,~C,~R,~E,world))
183 case (owners,On{journal}):enabled_barrier(~S,~C,~R,~E,~H,~Error,barrier_recorded(~S,~C,~R,~E,~H,~Error,(owners,journal),world))