diff options
Diffstat (limited to 'lib/event.mli')
| -rw-r--r-- | lib/event.mli | 72 |
1 files changed, 35 insertions, 37 deletions
diff --git a/lib/event.mli b/lib/event.mli index f6cdf14..9e05569 100644 --- a/lib/event.mli +++ b/lib/event.mli @@ -1,45 +1,43 @@ (** Barebones of event dispatching. Most users will have no reason to look here. *) -(** Used internally when received an unknown event. Is caught and logged. *) -exception Invalid_event of string +open Event_models (** Event dispatch type wrapper. Used internally. *) type t = -| HELLO of Yojson.Safe.json -| READY of Yojson.Safe.json -| RESUMED of Yojson.Safe.json -| INVALID_SESSION of Yojson.Safe.json -| CHANNEL_CREATE of Channel_t.t -| CHANNEL_UPDATE of Channel_t.t -| CHANNEL_DELETE of Channel_t.t -| CHANNEL_PINS_UPDATE of Yojson.Safe.json -| GUILD_CREATE of Guild_t.t -| GUILD_UPDATE of Guild_t.t -| GUILD_DELETE of Guild_t.t -| GUILD_BAN_ADD of Ban_t.t -| GUILD_BAN_REMOVE of Ban_t.t -| GUILD_EMOJIS_UPDATE of Yojson.Safe.json -| GUILD_INTEGRATIONS_UPDATE of Yojson.Safe.json -| GUILD_MEMBER_ADD of Member_t.t -| GUILD_MEMBER_REMOVE of Member_t.member_wrapper -| GUILD_MEMBER_UPDATE of Member_t.member_update -| GUILD_MEMBERS_CHUNK of Member_t.t list -| GUILD_ROLE_CREATE of Role_t.t -| GUILD_ROLE_UPDATE of Role_t.t -| GUILD_ROLE_DELETE of Role_t.t -| MESSAGE_CREATE of Message_t.t -| MESSAGE_UPDATE of Message_t.message_update -| MESSAGE_DELETE of Snowflake.t * Snowflake.t -| MESSAGE_DELETE_BULK of Snowflake.t list -| MESSAGE_REACTION_ADD of Reaction_t.reaction_event -| MESSAGE_REACTION_REMOVE of Reaction_t.reaction_event -| MESSAGE_REACTION_REMOVE_ALL of Reaction_t.t list -| PRESENCE_UPDATE of Presence.t -| TYPING_START of Yojson.Safe.json -| USER_UPDATE of Yojson.Safe.json -| VOICE_STATE_UPDATE of Yojson.Safe.json -| VOICE_SERVER_UPDATE of Yojson.Safe.json -| WEBHOOKS_UPDATE of Yojson.Safe.json +| READY of Ready.t +| RESUMED of Resumed.t +| CHANNEL_CREATE of ChannelCreate.t +| CHANNEL_UPDATE of ChannelUpdate.t +| CHANNEL_DELETE of ChannelDelete.t +| CHANNEL_PINS_UPDATE of ChannelPinsUpdate.t +| GUILD_CREATE of GuildCreate.t +| GUILD_UPDATE of GuildUpdate.t +| GUILD_DELETE of GuildDelete.t +| GUILD_BAN_ADD of GuildBanAdd.t +| GUILD_BAN_REMOVE of GuildBanRemove.t +| GUILD_EMOJIS_UPDATE of GuildEmojisUpdate.t +(* | GUILD_INTEGRATIONS_UPDATE of Yojson.Safe.json *) +| GUILD_MEMBER_ADD of GuildMemberAdd.t +| GUILD_MEMBER_REMOVE of GuildMemberRemove.t +| GUILD_MEMBER_UPDATE of GuildMemberUpdate.t +| GUILD_MEMBERS_CHUNK of GuildMembersChunk.t +| GUILD_ROLE_CREATE of GuildRoleCreate.t +| GUILD_ROLE_UPDATE of GuildRoleUpdate.t +| GUILD_ROLE_DELETE of GuildRoleDelete.t +| MESSAGE_CREATE of MessageCreate.t +| MESSAGE_UPDATE of MessageUpdate.t +| MESSAGE_DELETE of MessageDelete.t +| MESSAGE_DELETE_BULK of MessageDeleteBulk.t +| REACTION_ADD of ReactionAdd.t +| REACTION_REMOVE of ReactionRemove.t +| REACTION_REMOVE_ALL of ReactionRemoveAll.t +| PRESENCE_UPDATE of PresenceUpdate.t +| TYPING_START of TypingStart.t +| USER_UPDATE of UserUpdate.t +(* | VOICE_STATE_UPDATE of Yojson.Safe.json *) +(* | VOICE_SERVER_UPDATE of Yojson.Safe.json *) +| WEBHOOK_UPDATE of WebhookUpdate.t +| UNKNOWN of Unknown.t (** Used to convert an event string and payload into a t wrapper type. *) val event_of_yojson : contents:Yojson.Safe.json -> string -> t |