From b2f081fff12093a7d3434859ebd621608dde6c7d Mon Sep 17 00:00:00 2001 From: Matias Goldfeld Date: Sun, 7 Feb 2021 20:21:47 -0500 Subject: Reverted earlier changes for good --- lib/http/http.mli | 178 +++++++++++++++++++++++++++--------------------------- 1 file changed, 89 insertions(+), 89 deletions(-) (limited to 'lib/http/http.mli') diff --git a/lib/http/http.mli b/lib/http/http.mli index ce16d06..3468272 100644 --- a/lib/http/http.mli +++ b/lib/http/http.mli @@ -28,129 +28,129 @@ end val get_gateway : unit -> Yojson.Safe.t Deferred.Or_error.t val get_gateway_bot : unit -> Yojson.Safe.t Deferred.Or_error.t -val get_channel : int64 -> Channel_t.t Deferred.Or_error.t +val get_channel : int -> Channel_t.t Deferred.Or_error.t val modify_channel : - int64 -> Yojson.Safe.t -> Channel_t.t Deferred.Or_error.t -val delete_channel : int64 -> Channel_t.t Deferred.Or_error.t -val get_messages : int64 -> int -> string * int64 -> Message_t.t list Deferred.Or_error.t -val get_message : int64 -> int64 -> Message_t.t Deferred.Or_error.t + int -> Yojson.Safe.t -> 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 : - ?files:(string * string) list -> int64 -> Yojson.Safe.t -> Message_t.t Deferred.Or_error.t + ?files:(string * string) list -> int -> Yojson.Safe.t -> Message_t.t Deferred.Or_error.t val create_reaction : - int64 -> int64 -> string -> unit Deferred.Or_error.t + int -> int -> string -> unit Deferred.Or_error.t val delete_own_reaction : - int64 -> int64 -> string -> unit Deferred.Or_error.t + int -> int -> string -> unit Deferred.Or_error.t val delete_reaction : - int64 -> int64 -> string -> int64 -> unit Deferred.Or_error.t + int -> int -> string -> int -> unit Deferred.Or_error.t val get_reactions : - int64 -> int64 -> string -> User_t.t list Deferred.Or_error.t + int -> int -> string -> User_t.t list Deferred.Or_error.t val delete_reactions : - int64 -> int64 -> unit Deferred.Or_error.t + int -> int -> unit Deferred.Or_error.t val edit_message : - int64 -> - int64 -> Yojson.Safe.t -> Message_t.t Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> Message_t.t Deferred.Or_error.t val delete_message : - int64 -> int64 -> unit Deferred.Or_error.t + int -> int -> unit Deferred.Or_error.t val bulk_delete : - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t + int -> Yojson.Safe.t -> unit Deferred.Or_error.t val edit_channel_permissions : - int64 -> - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t -val get_channel_invites : int64 -> Yojson.Safe.t Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> unit Deferred.Or_error.t +val get_channel_invites : int -> Yojson.Safe.t Deferred.Or_error.t val create_channel_invite : - int64 -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t val delete_channel_permission : - int64 -> int64 -> unit Deferred.Or_error.t -val broadcast_typing : int64 -> unit Deferred.Or_error.t -val get_pinned_messages : int64 -> Message_t.t list Deferred.Or_error.t -val pin_message : int64 -> int64 -> unit Deferred.Or_error.t -val unpin_message : int64 -> int64 -> unit 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 : - int64 -> int64 -> unit Deferred.Or_error.t + int -> int -> unit Deferred.Or_error.t val group_recipient_remove : - int64 -> int64 -> unit Deferred.Or_error.t -val get_emojis : int64 -> Emoji.t list Deferred.Or_error.t -val get_emoji : int64 -> int64 -> Emoji.t 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 : - int64 -> Yojson.Safe.t -> Emoji.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Emoji.t Deferred.Or_error.t val edit_emoji : - int64 -> - int64 -> Yojson.Safe.t -> Emoji.t Deferred.Or_error.t -val delete_emoji : int64 -> int64 -> unit Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> Emoji.t Deferred.Or_error.t +val delete_emoji : int -> int -> unit Deferred.Or_error.t val create_guild : Yojson.Safe.t -> Guild_t.t Deferred.Or_error.t -val get_guild : int64 -> Guild_t.t Deferred.Or_error.t +val get_guild : int -> Guild_t.t Deferred.Or_error.t val edit_guild : - int64 -> Yojson.Safe.t -> Guild_t.t Deferred.Or_error.t -val delete_guild : int64 -> unit Deferred.Or_error.t -val get_guild_channels : int64 -> Channel_t.t list Deferred.Or_error.t + int -> Yojson.Safe.t -> 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 : - int64 -> Yojson.Safe.t -> Channel_t.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Channel_t.t Deferred.Or_error.t val modify_guild_channel_positions : - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t -val get_member : int64 -> int64 -> Member.t Deferred.Or_error.t -val get_members : int64 -> Member.t list Deferred.Or_error.t + int -> Yojson.Safe.t -> 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 : - int64 -> - int64 -> Yojson.Safe.t -> Member.t Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> Member.t Deferred.Or_error.t val edit_member : - int64 -> - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> unit Deferred.Or_error.t val remove_member : - int64 -> - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> unit Deferred.Or_error.t val change_nickname : - int64 -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t val add_member_role : - int64 -> int64 -> int64 -> unit Deferred.Or_error.t + int -> int -> int -> unit Deferred.Or_error.t val remove_member_role : - int64 -> int64 -> int64 -> unit Deferred.Or_error.t -val get_bans : int64 -> Ban.t list Deferred.Or_error.t -val get_ban : int64 -> int64 -> Ban.t 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 : - int64 -> - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> unit Deferred.Or_error.t val guild_ban_remove : - int64 -> - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t -val get_roles : int64 -> Role_t.t list Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> unit Deferred.Or_error.t +val get_roles : int -> Role_t.t list Deferred.Or_error.t val guild_role_add : - int64 -> Yojson.Safe.t -> Role_t.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Role_t.t Deferred.Or_error.t val guild_roles_edit : - int64 -> Yojson.Safe.t -> Role_t.t list Deferred.Or_error.t + int -> Yojson.Safe.t -> Role_t.t list Deferred.Or_error.t val guild_role_edit : - int64 -> - int64 -> Yojson.Safe.t -> Role_t.t Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> Role_t.t Deferred.Or_error.t val guild_role_remove : - int64 -> int64 -> unit Deferred.Or_error.t + int -> int -> unit Deferred.Or_error.t val guild_prune_count : - int64 -> int -> int Deferred.Or_error.t + int -> int -> int Deferred.Or_error.t val guild_prune_start : - int64 -> int -> int Deferred.Or_error.t + int -> int -> int Deferred.Or_error.t val get_guild_voice_regions : - int64 -> Yojson.Safe.t Deferred.Or_error.t -val get_guild_invites : int64 -> Yojson.Safe.t Deferred.Or_error.t -val get_integrations : int64 -> Yojson.Safe.t Deferred.Or_error.t + int -> Yojson.Safe.t Deferred.Or_error.t +val get_guild_invites : int -> Yojson.Safe.t Deferred.Or_error.t +val get_integrations : int -> Yojson.Safe.t Deferred.Or_error.t val add_integration : - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t + int -> Yojson.Safe.t -> unit Deferred.Or_error.t val edit_integration : - int64 -> - int64 -> Yojson.Safe.t -> unit Deferred.Or_error.t + int -> + int -> Yojson.Safe.t -> unit Deferred.Or_error.t val delete_integration : - int64 -> int64 -> unit Deferred.Or_error.t + int -> int -> unit Deferred.Or_error.t val sync_integration : - int64 -> int64 -> unit Deferred.Or_error.t -val get_guild_embed : int64 -> Yojson.Safe.t Deferred.Or_error.t + int -> int -> unit Deferred.Or_error.t +val get_guild_embed : int -> Yojson.Safe.t Deferred.Or_error.t val edit_guild_embed : - int64 -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t -val get_vanity_url : int64 -> Yojson.Safe.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t +val get_vanity_url : int -> Yojson.Safe.t Deferred.Or_error.t val get_invite : string -> Yojson.Safe.t Deferred.Or_error.t val delete_invite : string -> Yojson.Safe.t Deferred.Or_error.t val get_current_user : unit -> User_t.t Deferred.Or_error.t val edit_current_user : Yojson.Safe.t -> User_t.t Deferred.Or_error.t val get_guilds : unit -> Guild_t.t list Deferred.Or_error.t -val leave_guild : int64 -> unit Deferred.Or_error.t +val leave_guild : int -> unit Deferred.Or_error.t val get_private_channels : unit -> Yojson.Safe.t Deferred.Or_error.t val create_dm : @@ -158,32 +158,32 @@ val create_dm : val create_group_dm : Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t val get_connections : unit -> Yojson.Safe.t Deferred.Or_error.t -val get_user : int64 -> User_t.t Deferred.Or_error.t +val get_user : int -> User_t.t Deferred.Or_error.t val get_voice_regions : unit -> Yojson.Safe.t Deferred.Or_error.t val create_webhook : - int64 -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t -val get_channel_webhooks : int64 -> Yojson.Safe.t Deferred.Or_error.t -val get_guild_webhooks : int64 -> Yojson.Safe.t Deferred.Or_error.t -val get_webhook : int64 -> Yojson.Safe.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t +val get_channel_webhooks : int -> Yojson.Safe.t Deferred.Or_error.t +val get_guild_webhooks : int -> Yojson.Safe.t Deferred.Or_error.t +val get_webhook : int -> Yojson.Safe.t Deferred.Or_error.t val get_webhook_with_token : - int64 -> string -> Yojson.Safe.t Deferred.Or_error.t + int -> string -> Yojson.Safe.t Deferred.Or_error.t val edit_webhook : - int64 -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t val edit_webhook_with_token : - int64 -> + int -> string -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t -val delete_webhook : int64 -> unit Deferred.Or_error.t +val delete_webhook : int -> unit Deferred.Or_error.t val delete_webhook_with_token : - int64 -> string -> unit Deferred.Or_error.t + int -> string -> unit Deferred.Or_error.t val execute_webhook : - int64 -> + int -> string -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t val execute_slack_webhook : - int64 -> + int -> string -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t val execute_git_webhook : - int64 -> + int -> string -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t val get_audit_logs : - int64 -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t + int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t val get_application_info : unit -> Yojson.Safe.t Deferred.Or_error.t \ No newline at end of file -- cgit v1.2.3