1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
include module type of Guild_t
val ban_user : id:Snowflake.t -> ?reason:string -> ?days:int -> t -> (unit, string) Lwt_result.t
val create : (string * Yojson.Safe.t) list -> (t, string) Lwt_result.t
val create_emoji : name:string -> image:string -> t -> (Emoji.t, string) Lwt_result.t
val create_role :
name:string ->
?colour:int ->
?permissions:int ->
?hoist:bool ->
?mentionable:bool ->
t ->
(Role_t.t, string) Lwt_result.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> (Channel_t.t, string) Lwt_result.t
val delete : t -> (unit, string) Lwt_result.t
val get_ban : id:Snowflake.t -> t -> (Ban_t.t, string) Lwt_result.t
val get_bans : t -> (Ban_t.t list, string) Lwt_result.t
val get_emoji : id:Snowflake.t -> t -> (Emoji.t, string) Lwt_result.t
val get_invites : t -> (Yojson.Safe.t, string) Lwt_result.t
val get_prune_count : days:int -> t -> (int, string) Lwt_result.t
val get_webhooks : t -> (Yojson.Safe.t, string) Lwt_result.t
val kick_user : id:Snowflake.t -> ?reason:string -> t -> (unit, string) Lwt_result.t
val leave : t -> (unit, string) Lwt_result.t
val list_voice_regions : t -> (Yojson.Safe.t, string) Lwt_result.t
val prune : days:int -> t -> (int, string) Lwt_result.t
val request_members : t -> (Member_t.t list, string) Lwt_result.t
val set_afk_channel : id:Snowflake.t -> t -> (Guild_t.t, string) Lwt_result.t
val set_afk_timeout : timeout:int -> t -> (Guild_t.t, string) Lwt_result.t
val set_name : name:string -> t -> (Guild_t.t, string) Lwt_result.t
val set_icon : icon:string -> t -> (Guild_t.t, string) Lwt_result.t
val unban_user : id:Snowflake.t -> ?reason:string -> t -> (unit, string) Lwt_result.t
(** Get a channel belonging to this guild. This does not make an HTTP request. *)
val get_channel : id:Channel_id_t.t -> t -> (Channel_t.t, string) Lwt_result.t
(** Get a member belonging to this guild. This does not make an HTTP request. *)
val get_member : id:User_id_t.t -> t -> (Member_t.t, string) Lwt_result.t
(** Get a role belonging to this guild. This does not make an HTTP request. *)
val get_role : id:Role_id.t -> t -> Role_t.t option
|