diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-28 10:31:51 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-28 10:31:51 -0700 |
| commit | 8662e92987c437f59d09896a247ec2b5d82c4528 (patch) | |
| tree | f004cc14598351d4ad6b19d8e993d2f629c5e738 /lib/dispatch.ml | |
| parent | Add more docs (diff) | |
| download | disml-8662e92987c437f59d09896a247ec2b5d82c4528.tar.xz disml-8662e92987c437f59d09896a247ec2b5d82c4528.zip | |
Publish docs updates
Diffstat (limited to 'lib/dispatch.ml')
| -rw-r--r-- | lib/dispatch.ml | 70 |
1 files changed, 35 insertions, 35 deletions
diff --git a/lib/dispatch.ml b/lib/dispatch.ml index ef53442..3103285 100644 --- a/lib/dispatch.ml +++ b/lib/dispatch.ml @@ -1,36 +1,36 @@ -open Event_models - -let ready = ref (fun (_:Ready.t) -> ()) -let resumed = ref (fun (_:Resumed.t) -> ()) -let channel_create = ref (fun (_:ChannelCreate.t) -> ()) -let channel_update = ref (fun (_:ChannelUpdate.t) -> ()) -let channel_delete = ref (fun (_:ChannelDelete.t) -> ()) -let channel_pins_update = ref (fun (_:ChannelPinsUpdate.t) -> ()) -let guild_create = ref (fun (_:GuildCreate.t) -> ()) -let guild_update = ref (fun (_:GuildUpdate.t) -> ()) -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.json) -> ()) *) -let member_join = ref (fun (_:GuildMemberAdd.t) -> ()) -let member_leave = ref (fun (_:GuildMemberRemove.t) -> ()) -let member_update = ref (fun (_:GuildMemberUpdate.t) -> ()) -let members_chunk = ref (fun (_:GuildMembersChunk.t) -> ()) -let role_create = ref (fun (_:GuildRoleCreate.t) -> ()) -let role_update = ref (fun (_:GuildRoleUpdate.t) -> ()) -let role_delete = ref (fun (_:GuildRoleDelete.t) -> ()) -let message_create = ref (fun (_:MessageCreate.t) -> ()) -let message_update = ref (fun (_:MessageUpdate.t) -> ()) -let message_delete = ref (fun (_:MessageDelete.t) -> ()) -let message_delete_bulk = ref (fun (_:MessageDeleteBulk.t) -> ()) -let reaction_add = ref (fun (_:ReactionAdd.t) -> ()) -let reaction_remove = ref (fun (_:ReactionRemove.t) -> ()) -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.json) -> ()) *) -(* let voice_server_update = ref (fun (_:Yojson.Safe.json) -> ()) *) -let webhook_update = ref (fun (_:WebhookUpdate.t) -> ()) +open Event_models
+
+let ready = ref (fun (_:Ready.t) -> ())
+let resumed = ref (fun (_:Resumed.t) -> ())
+let channel_create = ref (fun (_:ChannelCreate.t) -> ())
+let channel_update = ref (fun (_:ChannelUpdate.t) -> ())
+let channel_delete = ref (fun (_:ChannelDelete.t) -> ())
+let channel_pins_update = ref (fun (_:ChannelPinsUpdate.t) -> ())
+let guild_create = ref (fun (_:GuildCreate.t) -> ())
+let guild_update = ref (fun (_:GuildUpdate.t) -> ())
+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.json) -> ()) *)
+let member_join = ref (fun (_:GuildMemberAdd.t) -> ())
+let member_leave = ref (fun (_:GuildMemberRemove.t) -> ())
+let member_update = ref (fun (_:GuildMemberUpdate.t) -> ())
+let members_chunk = ref (fun (_:GuildMembersChunk.t) -> ())
+let role_create = ref (fun (_:GuildRoleCreate.t) -> ())
+let role_update = ref (fun (_:GuildRoleUpdate.t) -> ())
+let role_delete = ref (fun (_:GuildRoleDelete.t) -> ())
+let message_create = ref (fun (_:MessageCreate.t) -> ())
+let message_update = ref (fun (_:MessageUpdate.t) -> ())
+let message_delete = ref (fun (_:MessageDelete.t) -> ())
+let message_delete_bulk = ref (fun (_:MessageDeleteBulk.t) -> ())
+let reaction_add = ref (fun (_:ReactionAdd.t) -> ())
+let reaction_remove = ref (fun (_:ReactionRemove.t) -> ())
+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.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 |