如何在Elm中创建包含需要负载的消息的任务？

type Msg
    = Payload String

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Payload data ->
            -- 处理负载数据
            let
                updatedModel = -- 更新模型
                cmd = -- 创建需要执行的命令
            in
            ( updatedModel, cmd )

sendPayload : String -> Cmd Msg
sendPayload data =
    Cmd.batch
        [ Cmd.msg (Payload data) ]

view : Model -> Html Msg
view model =
    button [ onClick (sendPayload "Hello, World!") ] [ text "Send Payload" ]