Initialize the SweetPoll behavior.

import SweetPoll
import Json.Decode as Decode


init : (Model, Cmd Msg)
init =
    let
        (sweetPollModel, sweetPollCommands) =
            "www.example-url.com/get-some-data"
                |> SweetPoll.defaultConfig (Decode.succeed {})
                |> SweetPoll.init
                |> Tuple.mapSecond SweetPollMsg
    in
        ...

Default configuration for SweetPoll.

- url: Route to poll against
- decoder: How to handle the data you expect back
- delay: How long to wait between poll attempts
- samesBeforeDelay: How many identical responses before increasing the delay
- delayMultiplier: How much to multiply the delay by when getting identical responses
- maxDelay: How long the delay should be before we give up on polling

Private state of the SweetPoll component.

import SweetPoll


type alias Model =
    { sweetPollModel : SweetPoll.Model ServerData
    , data : ServerData
    , error : Maybe Http.Error
    }


type alias ServerData =
    {}

Takes the SweetPoll Msg and Model and produces a non-opaque result that you can work with.

import SweetPoll


type Msg
    = SweetPollMsg (SweetPoll.Msg ServerData)


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        SweetPollMsg sweetPollMsg ->
            case SweetPoll.update action model.sweetPollModel of
                { sweetPollModel, newData, error, cmd } ->
                    ( { sweetPollModel = sweetPollModel
                      , data = newData
                      , error = error
                      }
                    , cmd
                    )

• sweetPollModel: the new state of the SweetPoll
• newData: any new data received by the SweetPoll
• error: any new Http error occurring in the current update cycle
• cmd: a Cmd to keep the SweetPoll running