From 7c62043ab195ee9844d29ade76efdf839a2e98d0 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Wed, 17 Nov 2021 14:26:43 +0100
Subject: Use [@@ëerive of_json] on all the types

---
 src/Identifiers.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Identifiers.ml')

diff --git a/src/Identifiers.ml b/src/Identifiers.ml
index 6140b7d4..51b6e473 100644
--- a/src/Identifiers.ml
+++ b/src/Identifiers.ml
@@ -33,6 +33,7 @@ end
     See [Id].
 *)
 module IdGen () : Id = struct
+  (* TODO: use Int64.t *)
   type id = int [@@deriving of_yojson]
 
   type 'a vector = 'a list [@@deriving of_yojson]
@@ -72,6 +73,6 @@ module IdGen () : Id = struct
      module Map = Map.Make (ord) *)
 end
 
-type name = string list
+type name = string list [@@deriving of_yojson]
 (** A name such as: `std::collections::vector` (which would be represented as
     [["std"; "collections"; "vector"]]) *)
-- 
cgit v1.2.3