example.elm

update : Action -> Model -> (Model, Effects Action)
update action model =
  case action of
    RequestMore ->
      ( model
      , getRandomGif model.topic
      )

    NewGif maybeUrl ->
      ( Model model.topic (Maybe.withDefault model.gifUrl maybeUrl)
      , Effects.task Tick
      )

    Tick ->
      ( model
      , Effects.task (Task.sleep (5 * second)) `andThen` \_ -> NewGif)
      )