如何在elm中播放音频

module Main exposing (..)

import Browser
import Html exposing (Html, button, div, text)
import Html.Events exposing (onClick)
import Html.Audio exposing (Audio, source)


type alias Model =
    { isPlaying : Bool
    }


init : Model
init =
    { isPlaying = False
    }


type Msg
    = TogglePlay


update : Msg -> Model -> Model
update msg model =
    case msg of
        TogglePlay ->
            { model | isPlaying = not model.isPlaying }


view : Model -> Html Msg
view model =
    div []
        [ button [ onClick TogglePlay ] [ text (if model.isPlaying then "Pause" else "Play") ]
        , if model.isPlaying then
            audio [ src "path/to/audio.mp3", autoplay True ] []
          else
            text ""
        ]


main =
    Browser.sandbox { init = init, update = update, view = view }