|
|
@ -1,7 +1,8 @@
|
|
|
|
module Explore exposing (Msg(..), main, update, view)
|
|
|
|
module Explore exposing (Msg(..), main, update, view)
|
|
|
|
|
|
|
|
|
|
|
|
import Browser
|
|
|
|
import Browser
|
|
|
|
import Html exposing (Html, button, div, text)
|
|
|
|
import Html exposing (Html, button, div, node, text)
|
|
|
|
|
|
|
|
import Html.Attributes exposing (type_)
|
|
|
|
import Html.Events exposing (onClick)
|
|
|
|
import Html.Events exposing (onClick)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -23,9 +24,19 @@ update msg model =
|
|
|
|
model - 1
|
|
|
|
model - 1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
withStyle html =
|
|
|
|
|
|
|
|
div []
|
|
|
|
|
|
|
|
[ node "style"
|
|
|
|
|
|
|
|
[ type_ "text/css" ]
|
|
|
|
|
|
|
|
[ text "@import url(/resources/public/css/app.css)" ]
|
|
|
|
|
|
|
|
, html
|
|
|
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
view model =
|
|
|
|
view model =
|
|
|
|
div []
|
|
|
|
div []
|
|
|
|
[ button [ onClick Decrement ] [ text "-" ]
|
|
|
|
[ button [ onClick Decrement ] [ text "-" ]
|
|
|
|
, div [] [ text (String.fromInt model) ]
|
|
|
|
, div [] [ text (String.fromInt model) ]
|
|
|
|
, button [ onClick Increment ] [ text "+" ]
|
|
|
|
, button [ onClick Increment ] [ text "+" ]
|
|
|
|
]
|
|
|
|
]
|
|
|
|
|
|
|
|
|> withStyle
|
|
|
|