def executed

bendvy-ecs-core@0.1.0.4 · ordinary_app_condition_schedule.bend:75

import Base
import bendvy-ecs-core@0.1.0.4/world.bend as W
import bendvy-ecs-core@0.1.0.4/ordinary_app_schedule.bend as Schedule
import bendvy-ecs-core@0.1.0.4/ordinary_app_observation_data.bend as DTO
import bendvy-ecs-core@0.1.0.4/ordinary_app_registration_fields.bend as Fields
import bendvy-ecs-core@0.1.0.4/ordinary_condition_declaration.bend as Condition

75def executed(~S:Data,~C:Type,~R:Type,~E:Data,~H:Type,~Rows:Data,~observe:W.World<S,C,R,E> -> W.World<S,C,R,E> & DTO.Observation<Rows>,~fold:H -> H & List<&2,Fields.Fields<S>>,~Ids:Data,~declaration:Condition.Program<S,C,R,E,Ids>,~Error:Data,program:Condition.Entries<S>,result:Schedule.RunResult<Schedule.Application<S,C,R,E,H,Rows,observe,fold>,S,Error>) -> Schedule.RunResult<Application<S,C,R,E,H,Rows,observe,fold,Ids,declaration>,S,Error>:
76  match result:
77    case Schedule.Finished{scheduled,observations}:Schedule.Finished{Application{scheduled,program},observations}
78    case Schedule.Failed{scheduled,error,observations}:Schedule.Failed{Application{scheduled,program},error,observations}
79    case Schedule.Rejected{scheduled}:Schedule.Rejected{Application{scheduled,program}}
80    case Schedule.Missing{scheduled,requirements}:Schedule.Missing{Application{scheduled,program},requirements}