diff options
| author | Adelyn Breelove <[email protected]> | 2018-12-21 15:55:17 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-12-21 15:55:17 -0700 |
| commit | 2f162b19ee0b0175004800fca29204d05c2a1b5a (patch) | |
| tree | 89927971e4b6300d552f1224228c146ecda190be | |
| parent | Update README (diff) | |
| download | disml-2f162b19ee0b0175004800fca29204d05c2a1b5a.tar.xz disml-2f162b19ee0b0175004800fca29204d05c2a1b5a.zip | |
Why are events so confusing
| -rw-r--r-- | lib/event.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/event.ml b/lib/event.ml index 8e04fee..954063e 100644 --- a/lib/event.ml +++ b/lib/event.ml @@ -75,7 +75,7 @@ let event_of_string ~contents t = match t with | "GUILD_BAN_REMOVE" -> GUILD_BAN_REMOVE (Ban_j.t_of_string contents) | "GUILD_EMOJIS_UPDATE" -> GUILD_EMOJIS_UPDATE (Yojson.Safe.from_string contents) | "GUILD_INTEGRATIONS_UPDATE" -> GUILD_INTEGRATIONS_UPDATE (Yojson.Safe.from_string contents) - | "GUILD_MEMBER_ADD" -> GUILD_MEMBER_ADD (let Member_t.{guild_id;member} = Member_j.member_update_of_string contents in wrap_member ~guild_id member) + | "GUILD_MEMBER_ADD" -> GUILD_MEMBER_ADD (Member_j.t_of_string contents) | "GUILD_MEMBER_REMOVE" -> GUILD_MEMBER_REMOVE (let Member_t.{guild_id;member} = Member_j.member_update_of_string contents in wrap_member ~guild_id member) | "GUILD_MEMBER_UPDATE" -> GUILD_MEMBER_UPDATE (let Member_t.{guild_id;member} = Member_j.member_update_of_string contents in wrap_member ~guild_id member) | "GUILD_MEMBERS_CHUNK" -> GUILD_MEMBERS_CHUNK (Yojson.Safe.(from_string contents |> Util.to_list) |> List.map ~f:(fun m -> Yojson.Safe.to_string m |> Member_j.t_of_string)) |