def put_column

bendvy-ecs-core@0.1.0.4 · declared_family.bend:17

import Base
import bendvy-ecs-core@0.1.0.4/ordinary_declaration.bend as Identity
import bendvy-ecs-core@0.1.0.4/persistence_declaration.bend as Decl
import bendvy-ecs-core@0.1.0.4/snapshot_leaf.bend as Leaf
import bendvy-ecs-core@0.1.0.4/decode_data.bend as D
import bendvy-ecs-core@0.1.0.4/column.bend as Col

17def put_column(~S:Data,~P:Type,~Store:Type,~Rest:Type,~identity:Identity.Declaration<S,P>,~save:P -> P & D.Raw,~put:Rest -> Leaf.Component<S,P,identity,save> -> Store,rest:Rest & Decl.Constructed<S,P,identity,save>,column:Col.Column<S,P>) -> Store:
18  match rest:
19    case (rest,declaration):put(rest,Leaf.Component{column,declaration})