如何在寓言Elmish的下拉菜单中设置默认值？

module Main exposing (..)

import Browser
import Html exposing (Html, button, div, select)
import Html.Attributes exposing (selected)
import Html.Events exposing (onClick)
import Json.Decode exposing (Decoder)


type alias Model =
    { selectedOption : String
    }


init : Model
init =
    { selectedOption = "default value" }


type Msg
    = UpdateSelectedOption String


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


view : Model -> Html Msg
view model =
    div []
        [ select []
            [ option [ selected (model.selectedOption == "option 1") ] [ Html.text "option 1" ]
            , option [ selected (model.selectedOption == "option 2") ] [ Html.text "option 2" ]
            , option [ selected (model.selectedOption == "option 3") ] [ Html.text "option 3" ]
            ]
        ]


main : Program () Model Msg
main =
    Browser.sandbox
        { init = init
        , update = update
        , view = view
        }