def read_lens_left_put

bendvy-ecs-core@0.1.0.3 · execution_layout_access.bend:35

import Base
import bendvy-ecs-core@0.1.0.3/execution_composer_layout.bend as Layout
import bendvy-ecs-core@0.1.0.3/owner_product.bend as Product

35def read_lens_left_put(-S:Data,-left:Layout.Layout,-right:Layout.Layout,-route:Layout.Route,put:Layout.resource_rest_generic(S,left,route) -> read_slot_type(S,left,route) -> Layout.resources_generic(S,left),rest:Layout.resources_generic(S,right) & Layout.resource_rest_generic(S,left,route),slot:read_slot_type(S,left,route)) -> Product.Owner<Layout.resources_generic(S,left),Layout.resources_generic(S,right)>:
36  match rest:
37    case (outer,inner):Product.Owner{put(inner,slot),outer}