From b245933103d84a4320a9b21f0faaf84a11a2886b Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Tue, 12 Feb 2019 19:49:33 +0000 Subject: Fix opam dependencies and revert changes --- lib/gateway/dispatch.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lib/gateway/dispatch.ml') diff --git a/lib/gateway/dispatch.ml b/lib/gateway/dispatch.ml index b4fc9d2..4a712d8 100644 --- a/lib/gateway/dispatch.ml +++ b/lib/gateway/dispatch.ml @@ -1,3 +1,4 @@ +open Core open Event_models let ready = ref (fun (_:Ready.t) -> ()) @@ -12,7 +13,7 @@ let guild_delete = ref (fun (_:GuildDelete.t) -> ()) let member_ban = ref (fun (_:GuildBanAdd.t) -> ()) let member_unban = ref (fun (_:GuildBanRemove.t) -> ()) let guild_emojis_update = ref (fun (_:GuildEmojisUpdate.t) -> ()) -(* let integrations_update = ref (fun (_:Yojson.Safe.t) -> ()) *) +(* let integrations_update = ref (fun (_:Yojson.Safe.json) -> ()) *) let member_join = ref (fun (_:GuildMemberAdd.t) -> ()) let member_leave = ref (fun (_:GuildMemberRemove.t) -> ()) let member_update = ref (fun (_:GuildMemberUpdate.t) -> ()) @@ -30,7 +31,7 @@ let reaction_remove_all = ref (fun (_:ReactionRemoveAll.t) -> ()) let presence_update = ref (fun (_:PresenceUpdate.t) -> ()) let typing_start = ref (fun (_:TypingStart.t) -> ()) let user_update = ref (fun (_:UserUpdate.t) -> ()) -(* let voice_state_update = ref (fun (_:Yojson.Safe.t) -> ()) *) -(* let voice_server_update = ref (fun (_:Yojson.Safe.t) -> ()) *) +(* let voice_state_update = ref (fun (_:Yojson.Safe.json) -> ()) *) +(* let voice_server_update = ref (fun (_:Yojson.Safe.json) -> ()) *) let webhook_update = ref (fun (_:WebhookUpdate.t) -> ()) let unknown = ref (fun (_:Unknown.t) -> ()) \ No newline at end of file -- cgit v1.2.3