diff options
| author | Adelyn Breedlove <[email protected]> | 2018-12-13 16:44:32 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2018-12-13 16:44:32 -0700 |
| commit | c6463e5ca9c557c7e8ecd05e71d37f237bc59da6 (patch) | |
| tree | df4b700a4c039e34bbee401250281a6c1814d4ca /lib/sharder.ml | |
| parent | Merge branch 'dev' of https://gitlab.com/Mishio595/disml into dev (diff) | |
| parent | Fix more dispatch issues (diff) | |
| download | disml-c6463e5ca9c557c7e8ecd05e71d37f237bc59da6.tar.xz disml-c6463e5ca9c557c7e8ecd05e71d37f237bc59da6.zip | |
Merge branch 'dev' of https://gitlab.com/Mishio595/disml into dev
Diffstat (limited to 'lib/sharder.ml')
| -rw-r--r-- | lib/sharder.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/sharder.ml b/lib/sharder.ml index 6ac8584..7366fd9 100644 --- a/lib/sharder.ml +++ b/lib/sharder.ml @@ -70,7 +70,8 @@ module Make(H : S.Http)(D : S.Dispatch) : S.Sharder = struct if t = "READY" then begin Ivar.fill_if_empty shard.ready () end; - D.dispatch ~ev:t data; + print_endline @@ Yojson.Safe.pretty_to_string data; + D.dispatch ~ev:t (Yojson.Safe.to_string data); return { shard with seq = seq; session = session; @@ -105,7 +106,7 @@ module Make(H : S.Http)(D : S.Dispatch) : S.Sharder = struct let request_guild_members ?(query="") ?(limit=0) ~guild shard = let payload = `Assoc [ - ("guild_id", `String (Snowflake.to_string guild)); + ("guild_id", `String (Int.to_string guild)); ("query", `String query); ("limit", `Int limit); ] in |