From 73d115ce6260e97f5f7ee47f743d842ffd292662 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Thu, 13 Dec 2018 14:11:54 -0700
Subject: Working on deriving types from json

---
 lib/models/member_j.mli | 76 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100644 lib/models/member_j.mli

(limited to 'lib/models/member_j.mli')

diff --git a/lib/models/member_j.mli b/lib/models/member_j.mli
new file mode 100644
index 0000000..28c89fd
--- /dev/null
+++ b/lib/models/member_j.mli
@@ -0,0 +1,76 @@
+(* Auto-generated from "member.atd" *)
+[@@@ocaml.warning "-27-32-35-39"]
+
+type user = User_t.t
+
+type snowflake = Snowflake_t.t
+
+type t = Member_t.t = {
+  user: user;
+  nick: string option;
+  roles: snowflake list;
+  joined_at: string;
+  deaf: bool;
+  mute: bool
+}
+
+val write_user :
+  Bi_outbuf.t -> user -> unit
+  (** Output a JSON value of type {!user}. *)
+
+val string_of_user :
+  ?len:int -> user -> string
+  (** Serialize a value of type {!user}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_user :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> user
+  (** Input JSON data of type {!user}. *)
+
+val user_of_string :
+  string -> user
+  (** Deserialize JSON data of type {!user}. *)
+
+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}. *)
+
-- 
cgit v1.2.3


From 179d9598fe62e2966471b312fd438e98ff3a272a Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Thu, 13 Dec 2018 15:50:37 -0700
Subject: Fix more dispatch issues

---
 lib/models/member_j.mli | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

(limited to 'lib/models/member_j.mli')

diff --git a/lib/models/member_j.mli b/lib/models/member_j.mli
index 28c89fd..f160b6d 100644
--- a/lib/models/member_j.mli
+++ b/lib/models/member_j.mli
@@ -6,7 +6,15 @@ type user = User_t.t
 type snowflake = Snowflake_t.t
 
 type t = Member_t.t = {
-  user: user;
+  nick: string option;
+  roles: snowflake list;
+  joined_at: string;
+  deaf: bool;
+  mute: bool;
+  user: user
+}
+
+type partial_member = Member_t.partial_member = {
   nick: string option;
   roles: snowflake list;
   joined_at: string;
@@ -74,3 +82,23 @@ val t_of_string :
   string -> t
   (** Deserialize JSON data of type {!t}. *)
 
+val write_partial_member :
+  Bi_outbuf.t -> partial_member -> unit
+  (** Output a JSON value of type {!partial_member}. *)
+
+val string_of_partial_member :
+  ?len:int -> partial_member -> string
+  (** Serialize a value of type {!partial_member}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_partial_member :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> partial_member
+  (** Input JSON data of type {!partial_member}. *)
+
+val partial_member_of_string :
+  string -> partial_member
+  (** Deserialize JSON data of type {!partial_member}. *)
+
-- 
cgit v1.2.3