def viewed
bendvy-ecs-core@0.1.0.4 · ordinary_optional_resource.bend:16
import bendvy-ecs-core@0.1.0.4/ordinary_optional_resource.bend as OrdinaryOptionalResource
import Base
import bendvy-ecs-core@0.1.0.4/ordinary_schema.bend as Schema
import bendvy-ecs-core@0.1.0.4/owner_product.bend as Product
16def viewed(~S:Data,~R:Type,~P:Type,~Rest:Type,~V:Data,~identity:Schema.Resource<S,P>,~lens:Product.Lens<R,Slot<S,P,identity>,Rest>,rest:Rest,result:P & V) -> R & Maybe<&2,V>:
17 match result:
18 case (owner,value):(Product.put_field(~R,~Slot<S,P,identity>,~Rest,lens)(rest,Present{owner}),Some{value})