f# - エルミッシュでボイラープレートの入れ子を避ける?

Question

次のようにElmish コンポーネントをネストしたとしAます。BC

次に、C状態とメッセージがある場合、これらを からCに渡しB、次に に渡す必要がありますA。

たとえば、メッセージとモデルのタイプは次のBようになります。

type Message = 
  | CMessage of C.Message
  | UpdateFoo of string

type Model = 
  {
    Foo : string
    C : C.Model
  }

次にupdate、Bいくつかのルーティングを行います。

let update message model = 
  match message with
  | CMessage m -> 
    {
      model with
        C = C.update m model.C 
    }
  | UpdateFoo foo -> { model with Foo = foo }

次に、メッセージをA消費するために同じことを行う必要がありBます。

setStateこれは、たとえばと比較して非常に冗長です。

エルミッシュでこれを管理するための戦略は何ですか?