module Loading exposing (..)

import Html as H exposing (Html)
import Html.Attributes as HA
import Html.Events as HE


type alias Model =
    Int


type Msg
    = Dec
    | Inc


init =
    0


view mdl =
    H.div []
        [ H.button [ HE.onClick Dec ] [ H.text "-" ]
        , H.button [ HE.onClick Inc ] [ H.text "+" ]
        , H.text <| String.fromInt mdl
        ]


update : Msg -> Model -> Model
update msg mdl =
    case msg of
        Dec ->
            mdl - 1

        Inc ->
            mdl + 1