elm-event-bug.elm

module Main exposing (..)

import Html exposing (Html, ul, li, div, text)
import Html.App as Html
import Html.Events exposing (onMouseEnter)


main =
    Html.beginnerProgram { model = 0, view = view, update = update }


type Msg
    = Select Int


update msg model =
    case (Debug.log "Msg" msg) of
        Select x ->
            x


view model =
    div []
        [ text
            ("Move mouse over \"Second\" (\"First\" will turn to upper case). "
                ++ "Now alterate between moving the mouse over this text and \"First\" "
                ++ "and you will get an Uncaught TypeError: Cannot read property 'decoder' of null"
            )
        , ul []
            [ if (model == 1) then
                li [ onMouseEnter (Select 0) ] [ text "FIRST" ]
              else
                li [] [ text "First" ]
            , li [ onMouseEnter (Select 1) ] [ text "Second" ]
            ]
        ]