aboutsummaryrefslogtreecommitdiff
path: root/lib/http.mli
blob: c2a50b8cdbac6ba6349fdbe7b366bb03255b5cdd (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

(* 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 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
val create_message :
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val create_reaction :
    int -> int -> string -> Yojson.Safe.json Deferred.Or_error.t
val delete_own_reaction :
    int -> int -> string -> Yojson.Safe.json Deferred.Or_error.t
val delete_reaction :
    int -> int -> string -> int -> Yojson.Safe.json Deferred.Or_error.t
val get_reactions :
    int -> int -> string -> Yojson.Safe.json Deferred.Or_error.t
val delete_reactions :
    int -> int -> Yojson.Safe.json Deferred.Or_error.t
val edit_message :
    int ->
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val delete_message :
    int -> int -> Yojson.Safe.json Deferred.Or_error.t
val bulk_delete :
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val edit_channel_permissions :
    int ->
    int -> Yojson.Safe.json -> Yojson.Safe.json 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
val group_recipient_add :
    int -> int -> Yojson.Safe.json 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
val create_emoji :
    int -> Yojson.Safe.json -> Yojson.Safe.json 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
val create_guild :
    Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val get_guild : int -> Yojson.Safe.json 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
val create_guild_channel :
    int -> Yojson.Safe.json -> Yojson.Safe.json 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
val add_member :
    int ->
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val edit_member :
    int ->
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val remove_member :
    int ->
    int -> Yojson.Safe.json -> Yojson.Safe.json 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
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
val guild_ban_add :
    int ->
    int -> Yojson.Safe.json -> Yojson.Safe.json 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
val guild_role_add :
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val guild_roles_edit :
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val guild_role_edit :
    int ->
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val guild_role_remove :
    int -> int -> Yojson.Safe.json Deferred.Or_error.t
val guild_prune_count :
    int -> int -> Yojson.Safe.json Deferred.Or_error.t
val guild_prune_start :
    int -> int -> Yojson.Safe.json 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
val edit_integration :
    int ->
    int -> Yojson.Safe.json -> Yojson.Safe.json Deferred.Or_error.t
val delete_integration :
    int -> int -> Yojson.Safe.json Deferred.Or_error.t
val sync_integration :
    int -> int -> Yojson.Safe.json 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 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
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 -> Yojson.Safe.json 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 -> Yojson.Safe.json Deferred.Or_error.t
val delete_webhook_with_token :
    int -> string -> Yojson.Safe.json 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