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/user_j.mli | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

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

diff --git a/lib/models/user_j.mli b/lib/models/user_j.mli
index 0a1c6e1..576768e 100644
--- a/lib/models/user_j.mli
+++ b/lib/models/user_j.mli
@@ -11,6 +11,8 @@ type t = User_t.t = {
   bot: bool
 }
 
+type partial_user = User_t.partial_user = { id: snowflake }
+
 val write_snowflake :
   Bi_outbuf.t -> snowflake -> unit
   (** Output a JSON value of type {!snowflake}. *)
@@ -51,3 +53,23 @@ val t_of_string :
   string -> t
   (** Deserialize JSON data of type {!t}. *)
 
+val write_partial_user :
+  Bi_outbuf.t -> partial_user -> unit
+  (** Output a JSON value of type {!partial_user}. *)
+
+val string_of_partial_user :
+  ?len:int -> partial_user -> string
+  (** Serialize a value of type {!partial_user}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_partial_user :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> partial_user
+  (** Input JSON data of type {!partial_user}. *)
+
+val partial_user_of_string :
+  string -> partial_user
+  (** Deserialize JSON data of type {!partial_user}. *)
+
-- 
cgit v1.2.3