榆树效应，tick 函数显然永远不会被调用

Question

我试图让我的模型对时钟滴答作响，以便做一些动画，例如 elm 架构教程的示例 8(旋转立方体)。

https://github.com/evancz/elm-architecture-tutorial

由于我的程序无法正常工作，我尝试制作最简单的示例来演示我的问题。

module Test where

import Html exposing (..)
import Html.Events exposing (..)
import StartApp as StartApp
import Effects exposing (..)
import Time exposing (..) 

type alias Model =
 {debug : String}

type Action = 
 Start | Tick Time

initialModel = Model "initial"

update : Action -> Model -> (Model, Effects Action)
update action model =
  case action of
    Start  -> ({model | debug = "started"}, Effects.tick Tick)
    Tick _ -> ({model | debug = "hasTicked"}, Effects.none)

view : Signal.Address Action -> Model -> Html
view address model =
  div []
      [ button [onClick address Start] [text "start"]
      , p [] [text (.debug model)]
      ]

app =
    StartApp.start
          { init = (initialModel, Effects.none)
          , view = view
          , update = update
          , inputs = []
          }

main =
    app.html

当我运行它时，当我单击按钮时，模型正确更新为“启动”，但从未触发 Tick 操作。

我可能在这里遗漏了一些东西，但我不知道在哪里。

Answer 1

您缺少任务端口。添加这个，你应该已经准备好了:

port tasks : Signal (Task.Task Effects.Never ())
port tasks =
  app.tasks