def relation_uses

bendvy-ecs-core@0.1.0.4 · ordinary_app_reader_parameter.bend:45

import Base
import bendvy-ecs-core@0.1.0.4/ordinary_query_declaration.bend as Query
import bendvy-ecs-core@0.1.0.4/relation_failure_reader.bend as KDecl
import bendvy-ecs-core@0.1.0.4/ordinary_app_registration_fields.bend as Fields
import bendvy-ecs-core@0.1.0.4/relation_types.bend as Relations

45def relation_uses(~S:Data,declarations:List<&2,KDecl.Declaration<S>>) -> List<&2,Fields.DeclaredUse>:
46  match declarations:
47    case []:[]
48    case KDecl.Declaration{Relations.Descriptor{_,key,_,_}} <> rest:Fields.DeclaredUse{Fields.EventUse{},Fields.RelationFailureSource{},key,Query.Read{}} <> relation_uses(~S,rest)