Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- port module Buttons exposing (main)
- import Html exposing (Html, button, div, text)
- import Html.Events exposing (onClick)
- main =
- Html.beginnerProgram { model = model, view = view, update = update }
- -- MODEL
- type alias Model =
- Int
- model : Model
- model =
- 0
- -- UPDATE
- type Msg
- = Increment
- | Decrement
- update : Msg -> Model -> Model
- update msg model =
- case msg of
- Increment ->
- model + 1
- Decrement ->
- model - 1
- -- VIEW
- view : Model -> Html Msg
- view model =
- div []
- [ button [ onClick Decrement ] [ text "-" ]
- , div [] [ text (toString model) ]
- , button [ onClick Increment ] [ text "+" ]
- ]
Add Comment
Please, Sign In to add comment