如何在elm应用中嵌入视频

import Html exposing (Html, div, video, text)
import Html.Attributes exposing (src, autoplay, controls)
import Html.Events exposing (onClick)
import Html.App as App
import Json.Decode as Decode

type alias Model = {}

type Msg = Play | Pause

init : (Model, Cmd Msg)
init =
    ( {}, Cmd.none )

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of
        Play ->
            -- 更新视频状态，播放视频
            ( model, Cmd.none )

        Pause ->
            -- 更新视频状态，暂停视频
            ( model, Cmd.none )

view : Model -> Html Msg
view model =
    div []
        [ video [ src "path/to/video.mp4", autoplay, controls ] []
        , div [ onClick Play ] [ text "播放" ]
        , div [ onClick Pause ] [ text "暂停" ]
        ]

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