ELM 2

gistfile1.txt

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 = {
  num: Int,
  action: String
}

model : Model
model = 
  {
  num = 0
  , action = "init"
  }


-- UPDATE

type Msg = Increment | Decrement

update : Msg -> Model -> Model
update msg model =
  case msg of
    Increment ->
      ( { model | num = model.num + 1, action = "Incr" } )

    Decrement ->
      ( { model | num = model.num - 1, action = "Decr" } )


-- VIEW

view : Model -> Html Msg
view model =
  div []
    [ iButton Decrement "-"
    , div [] [ text (toString model.num) ]
    , iButton Increment "+"
    ]
    
iButton : msg -> String -> Html msg
iButton  msg label = 
   button [ onClick msg ] [ text label ]