Attribute unexpectedly removed

Main.elm

module Main exposing (..)

import Html.Attributes exposing (style)
import Html.Events exposing (onClick)
import Html exposing (node, text)
import Html.App


type alias Model =
  { color : String
  , clicks : Int
  }


type Msg
  = Click


init : Model
init =
  { clicks = 0
  , color = "black"
  }


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
  case msg of
    Click ->
      ( { model | clicks = model.clicks + 1, color = "red" }, Cmd.none )


view : Model -> Html.Html Msg
view model =
  node
    "div"
    [ style [ ( "color", model.color )
            , ( "font-size", "30px" )
            ]
    , onClick Click
    ]
    [ text (toString model.clicks) ]


main =
  Html.App.program
    { init = ( init, Cmd.none )
    , view = view
    , update = update
    , subscriptions = \model -> Sub.none
    }