def replaced

bendvy-ecs-core@0.1.0.4 · bundle_component_install.bend:28

import Base
import world.bend as W
import component.bend as C
import column.bend as Col
import lifecycle.bend as L
import bundle_install.bend as F

28def replaced(~S:Data,~Store:Type,~R:Type,~E:Data,~Rest:Type,~C:Type,~V:Data,~Token:Data,~take:Store -> Rest & Col.Column<S,C>,~put:Rest -> Col.Column<S,C> -> Store,~project:C -> C & V,+handle:W.Handle<S>,+stamp:L.Stamp,result:C.Replacement<W.World<S,Store,R,E>,C>) -> F.Attempt<W.World<S,Store,R,E>,Entry<S,C>,Recovery<S,C>>:
29  match result:
30    case C.ReplaceRejected{world,incoming,error}: F.Refused{world,Entry{handle,incoming},error}
31    case C.Replaced{world,previous}: F.Installed{world,w => undo(~S,~Store,~R,~E,~Rest,~C,~V,~Token,~take,~put,~project,Recovery{Entry{handle,previous},stamp},w)}