1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(*
dune exec examples/constructing.exe <<EOF
{
"id": "398eb027",
"name": "John Doe",
"pages": [
{
"id": 1,
"title": "The Art of Flipping Coins",
}
]
}
EOF
*)
let json_output =
`Assoc
[
("id", `String "398eb027");
("name", `String "John Doe");
( "pages",
`Assoc
[ ("id", `Int 1); ("title", `String "The Art of Flipping Coins") ] );
]
let main () =
let oc = stdout in
Yojson.Basic.pretty_to_channel oc json_output;
output_string oc "\n"
let () = main ()
|
