def replace_resource

bendvy-ecs-core@0.1.0.4 · decode_requests.bend:62

import Base
import bendvy-ecs-core@0.1.0.4/resource.bend as Resource
import bendvy-ecs-core@0.1.0.4/bundle_batch.bend as Batch
import bendvy-ecs-core@0.1.0.4/decode_data.bend as D
import bendvy-ecs-core@0.1.0.4/ordinary_declaration.bend as Identity

62def replace_resource(~S:Data,~C:Type,~R:Type,~E:Data,~P:Type,~identity:Identity.Declaration<S,P>,~project:P -> P & D.Raw,owner:Owner<S,C,R,E,P,identity,project>,replacement:R) -> Owner<S,C,R,E,P,identity,project> & Unit:
63  match owner:
64    case Owner{Batch.Batch{tx,prepared},declaration}:resource_replaced(~S,~C,~R,~E,~P,~identity,~project,declaration,prepared,Resource.tx_replace(~S,~C,~R,~E,tx,replacement))