如何在ELM0.17中使用onWithOptions？

onWithOptions : String -> Options -> Decoder msg -> Attribute msg

import Html exposing (div, button)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick, onWithOptions)
import Json.Decode exposing (succeed)

type Msg
    = ButtonClick

view : Model -> Html Msg
view model =
    div []
        [ button [ style "background-color" "red", onWithOptions "click" { stopPropagation = True, preventDefault = True } (succeed ButtonClick) ] [ text "Click Me" ]
        ]

update : Msg -> Model -> Model
update msg model =
    case msg of
        ButtonClick ->
            -- 处理按钮点击事件的逻辑
            model