如何在Elm中将`Msg`类型分成多种类型？

Question

在Elm中使用模型和更新的标准方法是定义Model和Msg类型以及更新函数：

type alias Model = { ... }

type Msg = Msg1 | Msg2 | ...

update : Msg -> Model -> (Model, Cmd Msg)
...

当应用程序增长时，所有这些类型和功能变得更加复杂。我想以下列方式将它们分开：

type alias Model1 = { ... }
type alias Model2 = { ... }
type alias Model = { model1 : Model1, model2 : Model2 }

type Msg1 = Msg1a | Msg1b | ...
type Msg2 = Msg2a | Msg2b | ...
type Msg = M1 Msg1 | M2 Msg2 | ...

然后，我想分别处理所有这些（我知道该怎么做）。

我的视图功能有问题。我将我的观点定义如下：

view : Model -> Html Msg
view model =
  let v1 = view1 model.model1
      ...
  in ...

view1 : Model1 -> Html Msg1
view1 model = ...

问题是，view1的结果是Html Msg1，而视图函数需要Html Msg。

有没有办法将结果从Html Msg1转换为Html Msg？

Answer 1

您正在寻找Html.map：

view : Model -> Html Msg
view model =
  let v1 = view1 model.model1 |> Html.map M1
      v2 = view2 model.model2 |> Html.map M2
  in ...