def paired

bendvy-ecs-core@0.1.0.3 · execution_declaration.bend:37

import Base
import bendvy-ecs-core@0.1.0.3/capabilities.bend as Cap

37def paired(~S:Data,~C:Type,~R:Type,~L:Type -> Type,~Right:Type -> Type,left:Declaration<S,C,R,L>,right:Declaration<S,C,R,Right>) -> Declaration<S,C,R,Combined(~L,~Right)>:
38  match left right:
39    case Declaration{lc,la} Declaration{rc,ra}:Declaration{Cap.Bundle{lc,rc},List.append(&2,Access,la,ra)}