本頁包含 Elm 0.18

裝載訊息（Messages with payload）

你可以在訊息上額外裝載資料：

module Main exposing (..)

import Html exposing (Html, button, div, text, program)
import Html.Events exposing (onClick)


-- MODEL


type alias Model =
    Int


init : ( Model, Cmd Msg )
init =
    ( 0, Cmd.none )



-- MESSAGES


type Msg
    = Increment Int



-- VIEW


view : Model -> Html Msg
view model =
    div []
        [ button [ onClick (Increment 2) ] [ text "+" ]
        , text (toString model)
        ]



-- UPDATE


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Increment howMuch ->
            ( model + howMuch, Cmd.none )



-- SUBSCRIPTIONS


subscriptions : Model -> Sub Msg
subscriptions model =
    Sub.none



-- MAIN


main : Program Never Model Msg
main =
    program
        { init = init
        , view = view
        , update = update
        , subscriptions = subscriptions
        }

注意到以下 Increment 訊息要求額外的整數：

type Msg
    = Increment Int

接著，在視界函式裡面，觸發該訊息並裝載額外資料：

onClick (Increment 2)

最後在更新函式中，使用樣式對應取出裝載資料：

update msg model =
    case msg of
        Increment howMuch ->
            ( model + howMuch, Cmd.none )