Elm - 把 Msg 变成 Cmd Msg

Question

我正在尝试从elm-lang tutorial 修改一个简单的应用程序，以首先更新模型，然后触发另一个更新。

update msg model =
  case msg of
    MorePlease ->
      (model, getRandomGif model.topic)

    NewGif (Ok newUrl) ->
      ( { model | gifUrl = newUrl }, Cmd.none)

    NewGif (Err _) ->
      (model, Cmd.none)

    -- my addition
    NewTopic newTopic ->
      ({ model | topic = newTopic}, MorePlease)

这在编译器中失败，因为 NewTopic 分支：

The 3rd branch has this type:

( { gifUrl : String, topic : String }, Cmd Msg )

But the 4th is:

( { gifUrl : String, topic : String }, Msg )

所以我的 Msg 需要输入 Cmd Msg。我怎样才能把我的 Msg 变成一个 Cmd Msg？

注意：我知道有一种更简单的方法可以进行此更改，但我试图从根本上理解 Elm

Answer 1

添加如下函数：

run : msg -> Cmd msg
run m =
    Task.perform (always m) (Task.succeed ())

你的代码会变成：

NewTopic newTopic ->
      ({ model | topic = newTopic}, run MorePlease)

Answer 2

真的没有必要把Msg 变成Cmd Msg。请记住，update 只是一个函数，因此您可以递归调用它。

您的NewTopic 案例处理程序可以简化为：

NewTopic newTopic ->
    update MorePlease { model | topic = newTopic}

如果您真的希望 Elm 架构在这种情况下触发 Cmd，您可以对所需的 Msg 执行简单的 map 或 Cmd.none：

NewTopic newTopic ->
    ({ model | topic = newTopic}, Cmd.map (always MorePlease) Cmd.none)

（实际上不推荐）