def registered

bendvy-ecs-core@0.1.0.4 · ordinary_optional_resource_system.bend:16

import Base
import bendvy-ecs-core@0.1.0.4/ordinary_resource_field_system.bend as Field
import bendvy-ecs-core@0.1.0.4/world.bend as W
import bendvy-ecs-core@0.1.0.4/check.bend as K
import bendvy-ecs-core@0.1.0.4/system.bend as Sys
import bendvy-ecs-core@0.1.0.4/ordinary_query_declaration.bend as Q

16def registered(~S:Data,~C:Type,~R:Type,~E:Data,~Args:Data,~Out:Type,~run:W.World<S,C,R,E> -> Args -> Sys.Outcome<W.World<S,C,R,E>,K.Error,Out>,~clauses:List<&2,Q.Clause<S>>,result:Sys.RegistrationResult<S,C,R,E,Args,K.Error,Out,run>) -> Field.Defined<S,W.World<S,C,R,E>,Sys.Registry<S,C,R,E,Args,K.Error,Out,run>,clauses>:
17  match result:
18    case Sys.RegistrationFailed{world}:Field.Rejected{world}
19    case Sys.Registered{world,registry}:Field.Defined{world,Field.Owner{registry}}