Simple DropDown in Elm

SimpleDropDown.elm

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (on, targetValue)


main =
  beginnerProgram { model = "", view = view, update = update }


view model =
  div [] 
    [ select [ on "change" Html.Events.targetValue ] 
      [ option [value "strawberry" ] [ text "strawberry" ]
      , option [value "chocolate" ] [ text "chocolate" ]
      , option [value "vanilla" ] [ text "vanilla" ]
      ]
    , div [] [ text (toString model) ]
    ]
  

update msg model =
  model ++ (toString msg)