aboutsummaryrefslogtreecommitdiff
path: root/lib/client.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/client.ml')
-rw-r--r--lib/client.ml16
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/client.ml b/lib/client.ml
index d1778e7..9269807 100644
--- a/lib/client.ml
+++ b/lib/client.ml
@@ -1,8 +1,8 @@
open Async
include Dispatch
-type t = {
- sharder: Sharder.t;
+type t =
+{ sharder: Sharder.t
}
let start ?count ?compress ?(large=250) token =
@@ -11,12 +11,12 @@ let start ?count ?compress ?(large=250) token =
>>| 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 set_status ?status ?kind ?name ?since client =
+ Sharder.set_status ?status ?kind ?name ?since client.sharder
let request_guild_members ~guild ?query ?limit client =
let `Guild_id guild = guild in
- Sharder.request_guild_members ~guild ?query ?limit client.sharder \ No newline at end of file
+ Sharder.request_guild_members ~guild ?query ?limit client.sharder
+
+let shutdown_all ?restart client =
+ Sharder.shutdown_all ?restart client.sharder \ No newline at end of file