Tabindex not getting removed.

tabindex.elm

module Main exposing (..)

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


type alias Model =
  { haveTabindex : Bool }


init : Model
init =
  { haveTabindex = True }


type Msg
  = Change


update : Msg -> Model -> Model
update msg model =
  case msg of
    Change ->
      { haveTabindex = False }


view : Model -> Html Msg
view model =
  div
    []
    [ div
        (if model.haveTabindex then
          [ tabindex 0 ]
         else
          []
        )
        [ text "Tab Me" ]
    , button [ onClick Change ] [ text "setValue" ]
    ]


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