37 lines
510 B
Elm
37 lines
510 B
Elm
|
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
|