From 73d115ce6260e97f5f7ee47f743d842ffd292662 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Thu, 13 Dec 2018 14:11:54 -0700
Subject: Working on deriving types from json

---
 lib/sharder.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/sharder.ml')

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
-- 
cgit v1.2.3