def undone

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

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

14def undone(~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,observed:W.World<S,Store,R,E> & C.Swap<C>) -> F.Restore<W.World<S,Store,R,E>,Entry<S,C>,Recovery<S,C>>:
15  match observed:
16    case (world,C.Swapped{incoming}): F.Restored{C.restore_stamp(~S,~Store,~R,~E,~Rest,~C,~V,~Token,~take,~put,~project,handle,stamp,world),Entry{handle,incoming}}
17    case (world,C.SwapRejected{old}): F.Pending{world,Recovery{Entry{handle,old},stamp},W.CapacityExceeded{}}