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


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


view model =
  div []
    [ select [ on "change" valueDecoder ]
      [ option [value "strawberry" ] [ text "strawberry" ]
      , option [value "chocolate" ] [ text "chocolate" ]
      , option [value "vanilla" ] [ text "vanilla" ]
      ]
    , div [] [ text (model) ]
    ]


update msg model =
  toString msg

flavorToUpcase value =
  value
    |> String.toUpper
    |> Json.Decode.succeed

valueDecoder =
  Html.Events.targetValue
    |> Json.Decode.andThen flavorToUpcase