如何在elm中将元组编码为JSON

import Json.Encode exposing (Value, object, string, int, float, list)
import Json.Decode exposing (Decoder, field, string, int, float, list, map2)

-- 定义一个元组类型
type alias Person =
    { name : String
    , age : Int
    }

-- 将元组编码为 JSON
encodePerson : Person -> Value
encodePerson person =
    object
        [ ( "name", string person.name )
        , ( "age", int person.age )
        ]

-- 示例数据
person : Person
person =
    { name = "John"
    , age = 25
    }

-- 编码为 JSON
encodedPerson : String
encodedPerson =
    Json.Encode.encode 0 (encodePerson person)