diff options
| author | Adelyn Breelove <[email protected]> | 2018-11-29 13:50:53 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-11-29 13:50:53 -0700 |
| commit | 18f4b7e8cada448f6fc15ee8ee18944dcb0b1676 (patch) | |
| tree | 1f0e626eeaf8dd89cc779655b68f12b1b8d0971a /lib/sharder.ml | |
| parent | functors! (diff) | |
| download | disml-18f4b7e8cada448f6fc15ee8ee18944dcb0b1676.tar.xz disml-18f4b7e8cada448f6fc15ee8ee18944dcb0b1676.zip | |
Try to make it a more properly structured lib
Diffstat (limited to 'lib/sharder.ml')
| -rw-r--r-- | lib/sharder.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sharder.ml b/lib/sharder.ml index 1fa97a0..0984050 100644 --- a/lib/sharder.ml +++ b/lib/sharder.ml @@ -104,7 +104,7 @@ module Make(H: S.Http) = struct let request_guild_members ~guild ?(query="") ?(limit=0) shard = let payload = `Assoc [ - ("guild_id", `String (string_of_int guild)); + ("guild_id", `String (Snowflake.to_string guild)); ("query", `String query); ("limit", `Int limit); ] in @@ -287,12 +287,12 @@ module Make(H: S.Http) = struct >>| fun shards -> { shards; } - let set_status sharder status = + let set_status ~status sharder = Deferred.all @@ List.map ~f:(fun t -> Shard.set_status ~status t.shard ) sharder.shards - let set_status_with sharder f = + let set_status_with ~f sharder = Deferred.all @@ List.map ~f:(fun t -> Shard.set_status ~status:(f t.shard) t.shard ) sharder.shards |