From 2411aa8f749c38fd8fd69b2387c1a236e692ad8f Mon Sep 17 00:00:00 2001
From: Gargi Sharma <gs051095@gmail.com>
Date: Thu, 5 Dec 2019 18:16:18 +0100
Subject: [PATCH] Add an example for constructing json

---
 examples/constructing.ml | 34 ++++++++++++++++++++++++++++++++++
 examples/dune            |  7 +++++++
 2 files changed, 41 insertions(+)
 create mode 100644 examples/constructing.ml

diff --git a/examples/constructing.ml b/examples/constructing.ml
new file mode 100644
index 00000000..41d1320b
--- /dev/null
+++ b/examples/constructing.ml
@@ -0,0 +1,34 @@
+(*
+  dune exec examples/constructing.exe <<EOF
+{
+  "id": "398eb027",
+  "name": "John Doe",
+  "pages": [
+    {
+      "id": 1,
+      "title": "The Art of Flipping Coins",
+    }
+  ]
+}
+EOF
+*)
+
+open Yojson.Basic.Util
+
+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";
+  close_out oc
+
+let () = main ()
diff --git a/examples/dune b/examples/dune
index b3c35177..65817d2e 100644
--- a/examples/dune
+++ b/examples/dune
@@ -1,5 +1,12 @@
 (executable
  (name filtering)
+ (modules filtering)
+ (flags (-safe-string))
+ (libraries yojson))
+
+(executable
+ (name constructing)
+ (modules constructing)
  (flags (-safe-string))
  (libraries yojson))