запустить действие из функции обновления

Есть, надеюсь, простая проблема. Когда я получаю действие A в моей функции обновления, я хотел бы вернуть задачу, которая выполняет некоторые действия, а затем приводит к действию B, которое снова принимается функцией обновления. Насколько я понимаю, любые эффекты, возвращаемые из обновления, будут выполняться startapp, но, похоже, ничего не происходит. Вот сокращенный пример:

import StartApp exposing (start)
import Effects
import Task
import Html exposing (..)
import Html.Events exposing (..)

main =
  (start
    { init = init
    , update = update
    , view = view
    , inputs = []
    }).html


type Action
    = Click
    | Dummy

type alias Model =
    { clicks: Int
    }


init : (Model, Effects.Effects Action)
init = (Model 0, Effects.none)

update : Action -> Model -> (Model, Effects.Effects Action)
update action model =
  case action of
    Click ->
      -- the click is received.
      (model, Effects.task (Task.succeed Dummy))
    Dummy ->
      -- this never happens!!
      ({ model | clicks = model.clicks + 1}, Effects.none)


view : Signal.Address Action -> Model -> Html
view address model =
  let start = button [ onClick address Click ] [ text (toString model.clicks) ]
  in
      div [] ([start])

elm
person Bzzt    schedule 01.01.2016    source источник

Ответы (1)


arrow_upward
2
arrow_downward

StartApp требует порт для задач в дополнение к main. Измените свою функцию main и добавьте порт tasks вот так, и все будет готово:

app =
  start
    { init = init
    , update = update
    , view = view
    , inputs = []
    }

main =
  app.html

port tasks : Signal (Task.Task Effects.Never ())
port tasks =
  app.tasks
person Chad Gilbert    schedule 01.01.2016