diff options
| author | Mishio595 <[email protected]> | 2018-11-29 18:10:45 -0700 |
|---|---|---|
| committer | Mishio595 <[email protected]> | 2018-11-29 18:10:45 -0700 |
| commit | eaccd45894e5b519bca82662d0b950b5f1d9c598 (patch) | |
| tree | 0d08c556ca3a0399c0be1169d5f0da57b618812b /lib/client.ml | |
| parent | Try to make it a more properly structured lib (diff) | |
| download | disml-eaccd45894e5b519bca82662d0b950b5f1d9c598.tar.xz disml-eaccd45894e5b519bca82662d0b950b5f1d9c598.zip | |
Fix all the errors from coding without merlin
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 |