diff --git a/src/frontend/Explore.elm b/src/frontend/Explore.elm index 3c60976..2a8f3b0 100644 --- a/src/frontend/Explore.elm +++ b/src/frontend/Explore.elm @@ -1,7 +1,8 @@ module Explore exposing (Msg(..), main, update, view) 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) @@ -23,9 +24,19 @@ update msg model = model - 1 +withStyle html = + div [] + [ node "style" + [ type_ "text/css" ] + [ text "@import url(/resources/public/css/app.css)" ] + , html + ] + + view model = div [] [ button [ onClick Decrement ] [ text "-" ] , div [] [ text (String.fromInt model) ] , button [ onClick Increment ] [ text "+" ] ] + |> withStyle