Merge branch 'fix_build' into 'master'

Fix opam dependencies and revert changes

See merge request Mishio595/disml!18

1 files changed, 4 insertions, 3 deletions

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