def checked

bendvy-ecs-core@0.1.0.4 · ordinary_app_checked_family_schedule.bend:33

import bendvy-ecs-core@0.1.0.4/ordinary_app_checked_family_schedule.bend as OrdinaryAppCheckedFamilySchedule
import Base
import bendvy-ecs-core@0.1.0.4/ordinary_app_event_family_runtime.bend as Family
import bendvy-ecs-core@0.1.0.4/ordinary_app_checked_schedule.bend as Old
import bendvy-ecs-core@0.1.0.4/ordinary_app_schedule.bend as Single
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_checked_bindings.bend as B
import bendvy-ecs-core@0.1.0.4/world.bend as W

33def checked(~S:Data,~C:Type,~R:Type,~E:Data,~F:Type,~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>>,~B:Type,~select:B -> W.World<S,C,R,E> -> U32 -> B.Selection<W.World<S,C,R,E>,B>,value:Old.Attachment<Single.Application<S,C,R,E,(H & (F & Nat)),Rows,observe,fold_family(~S,~H,~F,~fold)>,B.Bindings<W.World<S,C,R,E>,B,select>,Old.Application<S,C,R,E,(H & (F & Nat)),Rows,observe,fold_family(~S,~H,~F,~fold),B,select>>) -> Attachment<Family.Application<S,C,R,E,F,H,Rows,observe,fold>,B.Bindings<W.World<S,C,R,E>,B,select>,Application<S,C,R,E,F,H,Rows,observe,fold,B,select>>:
34  match value:
35    case Old.Attached{app}:Attached{Application{app}}
36    case Old.Invalid{Single.Application{app,_,_,_,_,_},bindings}:Invalid{original(~S,~C,~R,~E,~F,~H,~Rows,~observe,~fold,app),bindings}

Uses (17)

Used by (1)