Elm ：将值从更新函数传递到传出端口

Question

我有一个更新功能，可以将Answer 添加到Question

一旦问题的答案得到更新，我想将其发送到传出端口，同时更新我的​​模型。

port emitQuestion : Question -> Cmd msg

update msg model =
  AnswerQuestion answer ->
    case model.question of
      Nothing ->
        ( model, Cmd.none)

      Just question ->
        let 
          updatedQuestion = 
            { question | answer = Just answer }
        in
          ( { model | question = updatedQuestion } , Cmd.none)

在这种情况下，我如何将updatedQuestion 传递给emitQuestion？

Answer 1

您定义了传出端口签名，但没有正文，如下所示：

port questionUpdated : Question -> Cmd msg

（假设您有 Question 类型或别名；您的问题没有指定）

然后，在调用 javascript 中，在调用 Elm init 之后定义端口处理程序：

var app = Elm.Main.init({ node: document.querySelector('main') })
app.ports.questionUpdated.subscribe(function(data) {
  // your javascript for handling updated question
});

要在更新时将新问题值传递给端口，只需将其传递到来自update 的返回类型的第二个值中：

( { model | question = updatedQuestion } , questionUpdated updatedQuestion )