blob: 34682723ecef3718ae4129a465894cb576127582 (
plain) (
blame)
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
open Async
module Base : sig
exception Invalid_Method
val base_url : string
val process_url : string -> Uri.t
val process_request_body :
?files:(string * string) list ->
Yojson.Safe.t ->
Cohttp_async.Body.t
val process_request_headers : ?multipart:bool -> unit -> Cohttp.Header.t
val process_response :
string ->
Cohttp_async.Response.t * Cohttp_async.Body.t ->
Yojson.Safe.t Deferred.Or_error.t
val request :
?files:(string * string) list ->
?body:Yojson.Safe.t ->
?query:(string * string) list ->
[ `Delete | `Get | `Patch | `Post | `Put ] ->
string ->
Yojson.Safe.t Deferred.Or_error.t
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 : int -> Channel_t.t Deferred.Or_error.t
val modify_channel :
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 -> int -> Yojson.Safe.t -> Message_t.t Deferred.Or_error.t
val create_reaction :
int -> int -> string -> unit Deferred.Or_error.t
val delete_own_reaction :
int -> int -> string -> unit Deferred.Or_error.t
val delete_reaction :
int -> int -> string -> int -> unit Deferred.Or_error.t
val get_reactions :
int -> int -> string -> User_t.t list Deferred.Or_error.t
val delete_reactions :
int -> int -> unit Deferred.Or_error.t
val edit_message :
int ->
int -> Yojson.Safe.t -> Message_t.t Deferred.Or_error.t
val delete_message :
int -> int -> unit Deferred.Or_error.t
val bulk_delete :
int -> Yojson.Safe.t -> unit Deferred.Or_error.t
val edit_channel_permissions :
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 :
int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
val delete_channel_permission :
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 -> unit Deferred.Or_error.t
val group_recipient_remove :
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.t -> Emoji.t Deferred.Or_error.t
val edit_emoji :
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 : int -> Guild_t.t Deferred.Or_error.t
val edit_guild :
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 :
int -> Yojson.Safe.t -> Channel_t.t Deferred.Or_error.t
val modify_guild_channel_positions :
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 :
int ->
int -> Yojson.Safe.t -> Member.t Deferred.Or_error.t
val edit_member :
int ->
int -> Yojson.Safe.t -> unit Deferred.Or_error.t
val remove_member :
int ->
int -> Yojson.Safe.t -> unit Deferred.Or_error.t
val change_nickname :
int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
val add_member_role :
int -> int -> int -> unit Deferred.Or_error.t
val remove_member_role :
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.t -> unit Deferred.Or_error.t
val guild_ban_remove :
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 :
int -> Yojson.Safe.t -> Role_t.t Deferred.Or_error.t
val guild_roles_edit :
int -> Yojson.Safe.t -> Role_t.t list Deferred.Or_error.t
val guild_role_edit :
int ->
int -> Yojson.Safe.t -> Role_t.t Deferred.Or_error.t
val guild_role_remove :
int -> int -> unit Deferred.Or_error.t
val guild_prune_count :
int -> int -> int Deferred.Or_error.t
val guild_prune_start :
int -> int -> int Deferred.Or_error.t
val get_guild_voice_regions :
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 :
int -> Yojson.Safe.t -> unit Deferred.Or_error.t
val edit_integration :
int ->
int -> Yojson.Safe.t -> unit Deferred.Or_error.t
val delete_integration :
int -> int -> unit Deferred.Or_error.t
val sync_integration :
int -> int -> unit Deferred.Or_error.t
val get_guild_embed : int -> Yojson.Safe.t Deferred.Or_error.t
val edit_guild_embed :
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 : int -> unit Deferred.Or_error.t
val get_private_channels :
unit -> Yojson.Safe.t Deferred.Or_error.t
val create_dm :
Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
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 : int -> User_t.t Deferred.Or_error.t
val get_voice_regions : unit -> Yojson.Safe.t Deferred.Or_error.t
val create_webhook :
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 :
int -> string -> Yojson.Safe.t Deferred.Or_error.t
val edit_webhook :
int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
val edit_webhook_with_token :
int ->
string -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
val delete_webhook : int -> unit Deferred.Or_error.t
val delete_webhook_with_token :
int -> string -> unit Deferred.Or_error.t
val execute_webhook :
int ->
string -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
val execute_slack_webhook :
int ->
string -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
val execute_git_webhook :
int ->
string -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
val get_audit_logs :
int -> Yojson.Safe.t -> Yojson.Safe.t Deferred.Or_error.t
val get_application_info : unit -> Yojson.Safe.t Deferred.Or_error.t
|