使用 ppx_yojson_conv 序列化 JSON 数据

任务

数据格式 / JSON / 序列化 JSON 数据

使用的 Opam 包

• ppx_yojson_conv 测试版本：v0.17.0 — 使用的库：ppx_yojson_conv
• yojson 测试版本：2.1.2 — 使用的库：yojson

代码

(* `Ppx_yojson_conv_lib.Yojson_conv.Primitives` contains functions needed to serialise values of primitive types. *) open Ppx_yojson_conv_lib.Yojson_conv.Primitives (* The annotation `[@@deriving to_yojson]` causes the PPX from `ppx_yojson_conv` to generate a function `yojson_of_language` that converts values from type `language` to `Yojson.Safe.t`. *) type language = { name: string; url: string } [@@deriving to_yojson] let ocaml_language = { name: "ocaml"; url: "https://ocaml.org.cn/" } (* We convert the value `ocaml_language` to a `Yojson.Safe.t`, using the function `yojson_of_language` generated by the PPX, and then convert that to a string. *) let () = ocaml_language |> yojson_of_language |> Yojson.Safe.to_string |> print_endline

open Ppx_yojson_conv_lib.Yojson_conv.Primitives

type language = { 
  name: string; 
  url: string 
} [@@deriving to_yojson]

let ocaml_language = { 
  name: "ocaml"; 
  url: "https://ocaml.org.cn/" 
}

let () = 
  ocaml_language
  |> yojson_of_language 
  |> Yojson.Safe.to_string 
  |> print_endline

菜谱无法运行？注释不清楚或已过时？