diff options
Diffstat (limited to 'lib/client.ml')
| -rw-r--r-- | lib/client.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/client.ml b/lib/client.ml index 7adaae3..b27a2ee 100644 --- a/lib/client.ml +++ b/lib/client.ml @@ -2,7 +2,7 @@ open Async module Make(T : S.Token) = struct include T - + module Http = Http.Make(T) module Sharder = Sharder.Make(Http) @@ -20,7 +20,7 @@ module Make(T : S.Token) = struct } let start ?count client = - Sharder.start ?count client.token + Sharder.start ?count () >>| fun sharder -> Ivar.fill_if_empty client.sharder sharder; client @@ -28,12 +28,12 @@ module Make(T : S.Token) = struct let set_status ~status client = Ivar.read client.sharder >>= fun sharder -> - Sharder.set_status sharder status + Sharder.set_status ~status sharder let set_status_with ~f client = Ivar.read client.sharder >>= fun sharder -> - Sharder.set_status_with sharder f + Sharder.set_status_with ~f sharder let request_guild_members ~guild ?query ?limit client = Ivar.read client.sharder |