diff options
| author | Adelyn Breelove <[email protected]> | 2018-12-13 14:11:54 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-12-13 14:11:54 -0700 |
| commit | 73d115ce6260e97f5f7ee47f743d842ffd292662 (patch) | |
| tree | 7825358ae1b4736392909cb72ce26cdb26257d23 /lib/sharder.ml | |
| parent | Add rate limit handling (diff) | |
| download | disml-73d115ce6260e97f5f7ee47f743d842ffd292662.tar.xz disml-73d115ce6260e97f5f7ee47f743d842ffd292662.zip | |
Working on deriving types from json
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 |