Uncaught TypeError: Cannot use 'in' operator to search for 'click' in test

Main.elm

import Html.Attributes exposing (classList)
import Html.Events exposing (onClick, onMouseDown)
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"
    [ onClick Click
    , onMouseDown Click
    , classList [("test", True)]
    ]
    [ text (toString model.clicks) ]


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