Working on deriving types from json

1 files changed, 53 insertions, 0 deletions

diff --git a/lib/models/user_j.mli b/lib/models/user_j.mli
new file mode 100644
index 0000000..0a1c6e1
--- /dev/null
+++ b/lib/models/user_j.mli
@@ -0,0 +1,53 @@
+(* Auto-generated from "user.atd" *)
+[@@@ocaml.warning "-27-32-35-39"]
+
+type snowflake = Snowflake_t.t
+
+type t = User_t.t = {
+  id: snowflake;
+  username: string;
+  discriminator: string;
+  avatar: string option;
+  bot: bool
+}
+
+val write_snowflake :
+  Bi_outbuf.t -> snowflake -> unit
+  (** Output a JSON value of type {!snowflake}. *)
+
+val string_of_snowflake :
+  ?len:int -> snowflake -> string
+  (** Serialize a value of type {!snowflake}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_snowflake :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> snowflake
+  (** Input JSON data of type {!snowflake}. *)
+
+val snowflake_of_string :
+  string -> snowflake
+  (** Deserialize JSON data of type {!snowflake}. *)
+
+val write_t :
+  Bi_outbuf.t -> t -> unit
+  (** Output a JSON value of type {!t}. *)
+
+val string_of_t :
+  ?len:int -> t -> string
+  (** Serialize a value of type {!t}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_t :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> t
+  (** Input JSON data of type {!t}. *)
+
+val t_of_string :
+  string -> t
+  (** Deserialize JSON data of type {!t}. *)
+