aboutsummaryrefslogtreecommitdiff
path: root/lib/client.ml
diff options
context:
space:
mode:
authorAdelyn Breelove <[email protected]>2019-02-13 12:21:19 -0700
committerAdelyn Breelove <[email protected]>2019-02-13 12:21:19 -0700
commitf241545b6e9a46fc0482ab66db4d9bbdf44cae4f (patch)
tree6f68fc345b566154aa1d7393472ea1b6ad0f38d6 /lib/client.ml
parentUpdate test bot (diff)
downloaddisml-f241545b6e9a46fc0482ab66db4d9bbdf44cae4f.tar.xz
disml-f241545b6e9a46fc0482ab66db4d9bbdf44cae4f.zip
Change api of the set_status methods
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