def completed

bendvy-ecs-core@0.1.0.4 · owned_compose.bend:37

import Base
import world.bend as W
import transaction.bend as T
import compose.bend as Q

37def completed(~S: Data,~Store: Type,~R: Type,~E: Data,~U: Data,~Out: Data,next: T.Tx<W.World<S,Store,R,E>,E> -> T.Tx<W.World<S,Store,R,E>,E> & (T.Outcome<Q.Error<U>> & List<&2,Out>),tx: T.Tx<W.World<S,Store,R,E>,E>,value: Out,result: T.Outcome<Q.Error<U>>) -> T.Tx<W.World<S,Store,R,E>,E> & (T.Outcome<Q.Error<U>> & List<&2,Out>):
38  match result:
39    case T.Success{}: prepend(~S,~Store,~R,~E,~U,~Out,value,next(tx))
40    case T.Failure{error}: (tx,(T.Failure{error},[]))