def bound

bendvy-ecs-core@0.1.0.4 · ordinary_app_machine_initialization_field.bend:26

import Base
import bendvy-ecs-core@0.1.0.4/world.bend as W
import bendvy-ecs-core@0.1.0.4/system.bend as Sys
import bendvy-ecs-core@0.1.0.4/machine_handlers.bend as H
import bendvy-ecs-core@0.1.0.4/ordinary_machine_initialization_marker.bend as Marker
import bendvy-ecs-core@0.1.0.4/ordinary_app_machine_handler.bend as App

26def bound(~S:Data,~K:Data,~V:Data,~Q:Data,~C:Type,~R:Type,~E:Data,~runner:W.World<S,C,R,E> -> H.Invocation<V> -> Sys.Outcome<W.World<S,C,R,E>,String,Unit>,~Extra:Type,extra:Extra,debug:Bool,result:Marker.Definition<S,K,V,Q,C,R,E,runner>) -> Definition<S,K,V,Q,C,R,E,runner,Extra>:
27  match result:
28    case Marker.Bound{Marker.Application{world,bundle,reader,declaration}}:Bound{Application{App.Application{world,bundle,declaration,extra,debug},reader}}
29    case Marker.BindRejected{world,bundle,declaration}:Rejected{App.Application{world,bundle,declaration,extra,debug}}