more mlis

4 files changed, 82 insertions, 6 deletions

diff --git a/bin/bot.ml b/bin/bot.ml
index a1bbf00..25ccc1e 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -7,8 +7,7 @@ let main () =
     | Some t -> t
     | None -> failwith "No token in env"
     in
-    Client.create token;
-    Client.start ()
+    Client.start token
     >>> fun client ->
     Clock.every
     (Time.Span.create ~sec:60 ())
diff --git a/lib/client.ml b/lib/client.ml
index a60bf03..7504604 100644
--- a/lib/client.ml
+++ b/lib/client.ml
@@ -5,10 +5,8 @@ type t = {
     token: string;
 }
 
-let create token =
-    Config.token := token
-
-let start ?count () =
+let start ?count token =
+    Config.token := token;
     Sharder.start ?count ()
     >>| fun sharder ->
     { sharder; token = !Config.token; }
diff --git a/lib/endpoints.mli b/lib/endpoints.mli
new file mode 100644
index 0000000..aba0eb7
--- /dev/null
+++ b/lib/endpoints.mli
@@ -0,0 +1,61 @@
+val gateway : string
+val gateway_bot : string
+val channel : int -> string
+val channel_messages : int -> string
+val channel_message : int -> int -> string
+val channel_reaction_me : int -> int -> string -> string
+val channel_reaction : int -> int -> string -> int -> string
+val channel_reactions_get : int -> int -> string -> string
+val channel_reactions_delete : int -> int -> string
+val channel_bulk_delete : int -> string
+val channel_permission : int -> int -> string
+val channel_permissions : int -> string
+val channels : string
+val channel_call_ring : int -> string
+val channel_invites : int -> string
+val channel_typing : int -> string
+val channel_pins : int -> string
+val channel_pin : int -> int -> string
+val guilds : string
+val guild : int -> string
+val guild_channels : int -> string
+val guild_members : int -> string
+val guild_member : int -> int -> string
+val guild_member_role : int -> int -> int -> string
+val guild_bans : int -> string
+val guild_ban : int -> int -> string
+val guild_roles : int -> string
+val guild_role : int -> int -> string
+val guild_prune : int -> string
+val guild_voice_regions : int -> string
+val guild_invites : int -> string
+val guild_integrations : int -> string
+val guild_integration : int -> int -> string
+val guild_integration_sync : int -> int -> string
+val guild_embed : int -> string
+val guild_emojis : int -> string
+val guild_emoji : int -> int -> string
+val webhooks_guild : int -> string
+val webhooks_channel : int -> string
+val webhook : int -> string
+val webhook_token : int -> string -> string
+val webhook_git : int -> string -> string
+val webhook_slack : int -> string -> string
+val user : int -> string
+val me : string
+val me_guilds : string
+val me_guild : int -> string
+val me_channels : string
+val me_connections : string
+val invite : string -> string
+val regions : string
+val application_information : string
+val group_recipient : int -> int -> string
+val guild_me_nick : int -> string
+val guild_vanity_url : int -> string
+val guild_audit_logs : int -> string
+val cdn_embed_avatar : string -> string
+val cdn_emoji : string -> string -> string
+val cdn_icon : int -> string -> string -> string
+val cdn_avatar : int -> string -> string -> string
+val cdn_default_avatar : int -> string
\ No newline at end of file
diff --git a/lib/opcode.mli b/lib/opcode.mli
new file mode 100644
index 0000000..e07f82e
--- /dev/null
+++ b/lib/opcode.mli
@@ -0,0 +1,18 @@
+type t =
+    | DISPATCH
+    | HEARTBEAT
+    | IDENTIFY
+    | STATUS_UPDATE
+    | VOICE_STATE_UPDATE
+    | RESUME
+    | RECONNECT
+    | REQUEST_GUILD_MEMBERS
+    | INVALID_SESSION
+    | HELLO
+    | HEARTBEAT_ACK
+
+exception Invalid_Opcode of int
+
+val to_int : t -> int
+val from_int : int -> t
+val to_string : t -> string
\ No newline at end of file