如何在elm中使用带header和body的http post

import Browser
import Html exposing (text)
import Http
import Json.Encode as Json

type alias Model =
    { response : String }

type Msg
    = Submit

init : Model
init =
    { response = "" }

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Submit ->
            let
                body =
                    Json.object
                        [ ( "key1", Json.string "value1" )
                        , ( "key2", Json.string "value2" )
                        ]
                
                headers =
                    [ ( "Content-Type", "application/json" )
                    , ( "Authorization", "Bearer your_token" )
                    ]
                
                request =
                    { method = "POST"
                    , headers = headers
                    , url = "https://example.com/api/endpoint"
                    , body = Http.jsonBody body
                    , expect = Http.expectString GotResponse
                    , timeout = Nothing
                    , withCredentials = False
                    }
            in
            ( model, Http.send GotResponse (Http.request request) )

GotResponse : Result Http.Error String -> Msg
GotResponse result =
    case result of
        Ok response ->
            -- 处理成功响应
            GotResponseText response

        Err error ->
            -- 处理错误响应
            GotResponseText (Http.errorToString error)

GotResponseText : String -> Msg
GotResponseText response =
    -- 更新模型，显示响应结果
    ( { model | response = response }, Cmd.none )

view : Model -> Html Msg
view model =
    div []
        [ button [ onClick Submit ] [ text "发送请求" ]
        , div [] [ text model.response ]
        ]

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