使用 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.dev.org.tw/" } (* 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.dev.org.tw/" 
}

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

食譜無法運作？註解不清楚或過時？