def checked

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

import Base
import decode_frame.bend as F
import ordinary_declaration.bend as Identity
import decode_data.bend as D

14def checked(~S:Data,~C:Type,~R:Type,~E:Data,~P:Type,~Q:Type,~identity:Identity.Declaration<S,P>,~project:P -> P & D.Raw,frame:F.Frame<S,C,R,E,P,Q,identity,project>,receipt:D.Receipt<R>) -> F.Frame<S,C,R,E,P,Q,identity,project> & Output<R>:
15  match receipt:
16    case D.Receipt{owner,D.Rejected{error}}:(frame,Refused{owner,error})
17    case D.Receipt{owner,D.Accepted{canonical}}:replaced(~S,~C,~R,~E,~P,~Q,~identity,~project,canonical,F.resource_set(~S,~C,~R,~E,~P,~Q,~identity,~project,frame,owner))