custom css for reactor

integration-tests
Josha von Gizycki 6 years ago
parent b3cf9ccd2f
commit 3551350908

@ -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

Loading…
Cancel
Save