Event handlers cannot be reattached after removing them.

Main.elm

import Html exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)
import Html.App as App
import String


type alias Model =
  { haveEvent : Bool
  , text : String
  }


init : Model
init =
  { haveEvent = True
  , text = ""
  }


type Msg
  = Change
  | SetText


update : Msg -> Model -> Model
update msg model =
  case msg of
    SetText ->
      { model | text = "Hello There" }
    Change ->
      { model | haveEvent = not model.haveEvent
              , text = "" }


view : Model -> Html Msg
view model =
  div
    []
    [ div
        (if model.haveEvent then
          [ onClick SetText ]
         else
          []
        )
        [ text "Click Me" ]
    , button [ onClick Change ] [ text "setValue" ]
    , text model.text
    , br [] []
    , text ("Have event attched:" ++ (toString model.haveEvent))
    ]


main : Program Never
main =
  App.beginnerProgram
    { model = init
    , update = update
    , view = view
    }