Post 2 Version A

Main.elm

module Main exposing (..)

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

type Action
  = Increment
  | Decrement

main =
  div []
    [ button [ onClick Decrement ] [ text "-" ]
    , span [] [ text "0" ]
    , button [ onClick Increment ] [ text "+" ]
    ]