aboutsummaryrefslogtreecommitdiff
path: root/lib/dispatch.ml
diff options
context:
space:
mode:
authorAdelyn Breedlove <[email protected]>2019-02-11 17:23:59 +0000
committerAdelyn Breedlove <[email protected]>2019-02-11 17:23:59 +0000
commit7c9b809078b5cd53e3d54c0004c683da2ec679af (patch)
tree5a1b165b597fc1ad4167115d9a23b12852a4636b /lib/dispatch.ml
parentMerge branch 'sharder_fixes' into 'master' (diff)
downloaddisml-7c9b809078b5cd53e3d54c0004c683da2ec679af.tar.xz
disml-7c9b809078b5cd53e3d54c0004c683da2ec679af.zip
Add a cache
Diffstat (limited to 'lib/dispatch.ml')
-rw-r--r--lib/dispatch.ml36
1 files changed, 0 insertions, 36 deletions
diff --git a/lib/dispatch.ml b/lib/dispatch.ml
deleted file mode 100644
index b4fc9d2..0000000
--- a/lib/dispatch.ml
+++ /dev/null
@@ -1,36 +0,0 @@
-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.t) -> ()) *)
-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.t) -> ()) *)
-(* let voice_server_update = ref (fun (_:Yojson.Safe.t) -> ()) *)
-let webhook_update = ref (fun (_:WebhookUpdate.t) -> ())
-let unknown = ref (fun (_:Unknown.t) -> ()) \ No newline at end of file