Improve HTTP stuff

1 files changed, 63 insertions, 64 deletions

diff --git a/lib/http.mli b/lib/http.mli
index c2a50b8..b5b05fd 100644
--- a/lib/http.mli
+++ b/lib/http.mli
@@ -22,132 +22,131 @@ module Base : sig
         Yojson.Safe.json Deferred.Or_error.t
 end
 
-(* Auto-generated signatures *)
 val get_gateway : unit -> Yojson.Safe.json Deferred.Or_error.t
 val get_gateway_bot : unit -> Yojson.Safe.json Deferred.Or_error.t
-val get_channel : int -> Yojson.Safe.json Deferred.Or_error.t
+val get_channel : int -> Channel_t.t Deferred.Or_error.t
 val modify_channel :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
-val delete_channel : int -> Yojson.Safe.json Deferred.Or_error.t
-val get_messages : int -> int -> string * int -> Yojson.Safe.json Deferred.Or_error.t
-val get_message : int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Channel_t.t Deferred.Or_error.t
+val delete_channel : int -> Channel_t.t Deferred.Or_error.t
+val get_messages : int -> int -> string * int -> Message_t.t list Deferred.Or_error.t
+val get_message : int -> int -> Message_t.t Deferred.Or_error.t
 val create_message :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Message_t.t Deferred.Or_error.t
 val create_reaction :
-    int -> int -> string -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> string -> unit Deferred.Or_error.t
 val delete_own_reaction :
-    int -> int -> string -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> string -> unit Deferred.Or_error.t
 val delete_reaction :
-    int -> int -> string -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> string -> int -> unit Deferred.Or_error.t
 val get_reactions :
-    int -> int -> string -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> string -> User_t.t list Deferred.Or_error.t
 val delete_reactions :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> unit Deferred.Or_error.t
 val edit_message :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Message_t.t Deferred.Or_error.t
 val delete_message :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> unit Deferred.Or_error.t
 val bulk_delete :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
 val edit_channel_permissions :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
 val get_channel_invites : int -> Yojson.Safe.json Deferred.Or_error.t
 val create_channel_invite :
     int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
 val delete_channel_permission :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
-val broadcast_typing : int -> Yojson.Safe.json Deferred.Or_error.t
-val get_pinned_messages : int -> Yojson.Safe.json Deferred.Or_error.t
-val pin_message : int -> int -> Yojson.Safe.json Deferred.Or_error.t
-val unpin_message : int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> unit Deferred.Or_error.t
+val broadcast_typing : int -> unit Deferred.Or_error.t
+val get_pinned_messages : int -> Message_t.t list Deferred.Or_error.t
+val pin_message : int -> int -> unit Deferred.Or_error.t
+val unpin_message : int -> int -> unit Deferred.Or_error.t
 val group_recipient_add :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> unit Deferred.Or_error.t
 val group_recipient_remove :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
-val get_emojis : int -> Yojson.Safe.json Deferred.Or_error.t
-val get_emoji : int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> unit Deferred.Or_error.t
+val get_emojis : int -> Emoji.t list Deferred.Or_error.t
+val get_emoji : int -> int -> Emoji.t Deferred.Or_error.t
 val create_emoji :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Emoji.t Deferred.Or_error.t
 val edit_emoji :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
-val delete_emoji : int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Emoji.t Deferred.Or_error.t
+val delete_emoji : int -> int -> unit Deferred.Or_error.t
 val create_guild :
-    Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
-val get_guild : int -> Yojson.Safe.json Deferred.Or_error.t
+    Yojson.Safe.json -> Guild_t.t Deferred.Or_error.t
+val get_guild : int -> Guild_t.t Deferred.Or_error.t
 val edit_guild :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
-val delete_guild : int -> Yojson.Safe.json Deferred.Or_error.t
-val get_guild_channels : int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Guild_t.t Deferred.Or_error.t
+val delete_guild : int -> unit Deferred.Or_error.t
+val get_guild_channels : int -> Channel_t.t list Deferred.Or_error.t
 val create_guild_channel :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Channel_t.t Deferred.Or_error.t
 val modify_guild_channel_positions :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
-val get_member : int -> int -> Yojson.Safe.json Deferred.Or_error.t
-val get_members : int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
+val get_member : int -> int -> Member.t Deferred.Or_error.t
+val get_members : int -> Member.t list Deferred.Or_error.t
 val add_member :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Member.t Deferred.Or_error.t
 val edit_member :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
 val remove_member :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
 val change_nickname :
     int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
 val add_member_role :
-    int -> int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> int -> unit Deferred.Or_error.t
 val remove_member_role :
-    int -> int -> int -> Yojson.Safe.json Deferred.Or_error.t
-val get_bans : int -> Yojson.Safe.json Deferred.Or_error.t
-val get_ban : int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> int -> unit Deferred.Or_error.t
+val get_bans : int -> Ban.t list Deferred.Or_error.t
+val get_ban : int -> int -> Ban.t Deferred.Or_error.t
 val guild_ban_add :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
 val guild_ban_remove :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
-val get_roles : int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
+val get_roles : int -> Role_t.t list Deferred.Or_error.t
 val guild_role_add :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Role_t.t Deferred.Or_error.t
 val guild_roles_edit :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Role_t.t list Deferred.Or_error.t
 val guild_role_edit :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> Role_t.t Deferred.Or_error.t
 val guild_role_remove :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> unit Deferred.Or_error.t
 val guild_prune_count :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> int Deferred.Or_error.t
 val guild_prune_start :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> int Deferred.Or_error.t
 val get_guild_voice_regions :
     int -> Yojson.Safe.json Deferred.Or_error.t
 val get_guild_invites : int -> Yojson.Safe.json Deferred.Or_error.t
 val get_integrations : int -> Yojson.Safe.json Deferred.Or_error.t
 val add_integration :
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
 val edit_integration :
     int ->
-    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
+    int -> Yojson.Safe.json -> unit Deferred.Or_error.t
 val delete_integration :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> unit Deferred.Or_error.t
 val sync_integration :
-    int -> int -> Yojson.Safe.json Deferred.Or_error.t
+    int -> int -> unit Deferred.Or_error.t
 val get_guild_embed : int -> Yojson.Safe.json Deferred.Or_error.t
 val edit_guild_embed :
     int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
 val get_vanity_url : int -> Yojson.Safe.json Deferred.Or_error.t
 val get_invite : string -> Yojson.Safe.json Deferred.Or_error.t
 val delete_invite : string -> Yojson.Safe.json Deferred.Or_error.t
-val get_current_user : unit -> Yojson.Safe.json Deferred.Or_error.t
+val get_current_user : unit -> User_t.t Deferred.Or_error.t
 val edit_current_user :
-    Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
-val get_guilds : unit -> Yojson.Safe.json Deferred.Or_error.t
-val leave_guild : int -> Yojson.Safe.json Deferred.Or_error.t
+    Yojson.Safe.json -> User_t.t Deferred.Or_error.t
+val get_guilds : unit -> Guild_t.t list Deferred.Or_error.t
+val leave_guild : int -> unit Deferred.Or_error.t
 val get_private_channels :
     unit -> Yojson.Safe.json Deferred.Or_error.t
 val create_dm :
@@ -155,7 +154,7 @@ val create_dm :
 val create_group_dm :
     Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
 val get_connections : unit -> Yojson.Safe.json Deferred.Or_error.t
-val get_user : int -> Yojson.Safe.json Deferred.Or_error.t
+val get_user : int -> User_t.t Deferred.Or_error.t
 val get_voice_regions : unit -> Yojson.Safe.json Deferred.Or_error.t
 val create_webhook :
     int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
@@ -169,9 +168,9 @@ val edit_webhook :
 val edit_webhook_with_token :
     int ->
     string -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
-val delete_webhook : int -> Yojson.Safe.json Deferred.Or_error.t
+val delete_webhook : int -> unit Deferred.Or_error.t
 val delete_webhook_with_token :
-    int -> string -> Yojson.Safe.json Deferred.Or_error.t
+    int -> string -> unit Deferred.Or_error.t
 val execute_webhook :
     int ->
     string -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t