blob: a7aa4d0fbca9c1bdcd406ff79d060d4bc6919270 (
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
|
open Async
module Base : sig
exception Invalid_Method
val base_url : string
val process_url : string -> Uri.t
val process_request_body : Yojson.Safe.json -> Cohttp_async.Body.t
val process_request_headers : unit -> Cohttp.Header.t
val process_response :
string ->
Cohttp_async.Response.t * Cohttp_async.Body.t ->
Yojson.Safe.json Deferred.Or_error.t
val request :
?body:Yojson.Safe.json ->
?query:(string * string) list ->
[> `DELETE | `GET | `PATCH | `POST | `PUT ] ->
string ->
Yojson.Safe.json Deferred.Or_error.t
end
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 -> Channel_t.t Deferred.Or_error.t
val modify_channel :
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 -> 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.json -> Message_t.t Deferred.Or_error.t
val delete_message :
int -> int -> unit Deferred.Or_error.t
val bulk_delete :
int -> Yojson.Safe.json -> unit Deferred.Or_error.t
val edit_channel_permissions :
int ->
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 -> 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.json -> Emoji.t Deferred.Or_error.t
val edit_emoji :
int ->
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 -> 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 -> 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 -> Channel_t.t Deferred.Or_error.t
val modify_guild_channel_positions :
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 -> Member.t Deferred.Or_error.t
val edit_member :
int ->
int -> Yojson.Safe.json -> unit Deferred.Or_error.t
val remove_member :
int ->
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 -> 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.json -> unit Deferred.Or_error.t
val guild_ban_remove :
int ->
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 -> Role_t.t Deferred.Or_error.t
val guild_roles_edit :
int -> Yojson.Safe.json -> Role_t.t list Deferred.Or_error.t
val guild_role_edit :
int ->
int -> Yojson.Safe.json -> 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.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 -> unit Deferred.Or_error.t
val edit_integration :
int ->
int -> Yojson.Safe.json -> 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.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 -> User_t.t Deferred.Or_error.t
val edit_current_user :
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 :
Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
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 -> 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
val get_channel_webhooks : int -> Yojson.Safe.json Deferred.Or_error.t
val get_guild_webhooks : int -> Yojson.Safe.json Deferred.Or_error.t
val get_webhook : int -> Yojson.Safe.json Deferred.Or_error.t
val get_webhook_with_token :
int -> string -> Yojson.Safe.json Deferred.Or_error.t
val edit_webhook :
int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val edit_webhook_with_token :
int ->
string -> Yojson.Safe.json -> Yojson.Safe.json 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.json -> Yojson.Safe.json Deferred.Or_error.t
val execute_slack_webhook :
int ->
string -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val execute_git_webhook :
int ->
string -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val get_audit_logs :
int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val get_application_info : unit -> Yojson.Safe.json Deferred.Or_error.t
|