如何在Elm中检测shift-enter？

module Main exposing (..)

import Browser
import Html exposing (Html, div, text)
import Html.Events exposing (onKeyDown)


type Msg
    = KeyPressed KeyboardEvent


update : Msg -> model -> model
update msg model =
    case msg of
        KeyPressed event ->
            if event.shiftKey && event.keyCode == 13 then
                -- 执行相应的操作
                model
            else
                model


view : model -> Html Msg
view model =
    div []
        [ text "Press Shift + Enter" ]


main =
    Browser.sandbox { init = (), update = update, view = view }
        |> Browser.element
        |> Browser.debug