如何在Elm lang中使用select (下拉)标记

import Html exposing (Html, div, select, option, text)
import Html.Attributes exposing (value)
import Html.Events exposing (onInput)


type Msg
    = SelectOption String


type alias Model =
    { selectedOption : String
    }


init : Model
init =
    { selectedOption = "" }


view : Model -> Html Msg
view model =
    div []
        [ select [ onInput SelectOption ]
            [ option [ value "", selected (model.selectedOption == "") ] [ text "请选择" ]
            , option [ value "option1", selected (model.selectedOption == "option1") ] [ text "选项1" ]
            , option [ value "option2", selected (model.selectedOption == "option2") ] [ text "选项2" ]
            ]
        ]


selected : Bool -> List (Html.Attribute msg)
selected isSelected =
    if isSelected then
        [ Html.Attributes.selected True ]
    else
        []


update : Msg -> Model -> Model
update msg model =
    case msg of
        SelectOption option ->
            { model | selectedOption = option }


main =
    Html.program
        { init = init
        , view = view
        , update = update
        , subscriptions = \_ -> Sub.none
        }