diff options
Diffstat (limited to 'lib/client.ml')
| -rw-r--r-- | lib/client.ml | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/lib/client.ml b/lib/client.ml index 72be653..9fac420 100644 --- a/lib/client.ml +++ b/lib/client.ml @@ -1,22 +1,22 @@ -open Async -include Client_options -include Dispatch - -type t = { - sharder: Sharder.t; -} - -let start ?count token = - Client_options.token := token; - Sharder.start ?count () - >>| fun sharder -> - { sharder; } - -let set_status ~status client = - Sharder.set_status ~status client.sharder - -let set_status_with ~f client = - Sharder.set_status_with ~f client.sharder - -let request_guild_members ~guild ?query ?limit client = +open Async
+include Client_options
+include Dispatch
+
+type t = {
+ sharder: Sharder.t;
+}
+
+let start ?count token =
+ Client_options.token := token;
+ Sharder.start ?count ()
+ >>| fun sharder ->
+ { sharder; }
+
+let set_status ~status client =
+ Sharder.set_status ~status client.sharder
+
+let set_status_with ~f client =
+ Sharder.set_status_with ~f client.sharder
+
+let request_guild_members ~guild ?query ?limit client =
Sharder.request_guild_members ~guild ?query ?limit client.sharder
\ No newline at end of file |