aboutsummaryrefslogtreecommitdiff
path: root/lib/dispatch.ml
diff options
context:
space:
mode:
authorAdelyn Breedlove <[email protected]>2019-01-19 13:06:40 -0700
committerAdelyn Breedlove <[email protected]>2019-01-19 13:06:40 -0700
commit721bbc88c75eea240607054f2ec5a371f4d60e08 (patch)
tree40af2abb5f6179194c0580defee32215245d04ef /lib/dispatch.ml
parentAdd docs to event dispatch (diff)
downloaddisml-721bbc88c75eea240607054f2ec5a371f4d60e08.tar.xz
disml-721bbc88c75eea240607054f2ec5a371f4d60e08.zip
Some changes for doc readability
Diffstat (limited to 'lib/dispatch.ml')
-rw-r--r--lib/dispatch.ml35
1 files changed, 35 insertions, 0 deletions
diff --git a/lib/dispatch.ml b/lib/dispatch.ml
new file mode 100644
index 0000000..8ef50b2
--- /dev/null
+++ b/lib/dispatch.ml
@@ -0,0 +1,35 @@
+let hello = ref (fun (_:Yojson.Safe.json) -> ())
+let ready = ref (fun (_:Yojson.Safe.json) -> ())
+let resumed = ref (fun (_:Yojson.Safe.json) -> ())
+let invalid_session = ref (fun (_:Yojson.Safe.json) -> ())
+let channel_create = ref (fun (_:Channel_t.t) -> ())
+let channel_update = ref (fun (_:Channel_t.t) -> ())
+let channel_delete = ref (fun (_:Channel_t.t) -> ())
+let channel_pins_update = ref (fun (_:Yojson.Safe.json) -> ())
+let guild_create = ref (fun (_:Guild_t.t) -> ())
+let guild_update = ref (fun (_:Guild_t.t) -> ())
+let guild_delete = ref (fun (_:Guild_t.t) -> ())
+let member_ban = ref (fun (_:Ban_t.t) -> ())
+let member_unban = ref (fun (_:Ban_t.t) -> ())
+let guild_emojis_update = ref (fun (_:Yojson.Safe.json) -> ())
+let integrations_update = ref (fun (_:Yojson.Safe.json) -> ())
+let member_join = ref (fun (_:Member_t.t) -> ())
+let member_leave = ref (fun (_:Member_t.member_wrapper) -> ())
+let member_update = ref (fun (_:Member_t.member_update) -> ())
+let members_chunk = ref (fun (_:Member_t.t list) -> ())
+let role_create = ref (fun (_:Role_t.t) -> ())
+let role_update = ref (fun (_:Role_t.t) -> ())
+let role_delete = ref (fun (_:Role_t.t) -> ())
+let message_create = ref (fun (_:Message_t.t) -> ())
+let message_update = ref (fun (_:Message_t.message_update) -> ())
+let message_delete = ref (fun (_:Snowflake.t) (_:Snowflake.t) -> ())
+let message_bulk_delete = ref (fun (_:Snowflake.t list) -> ())
+let reaction_add = ref (fun (_:Reaction_t.reaction_event) -> ())
+let reaction_remove = ref (fun (_:Reaction_t.reaction_event) -> ())
+let reaction_bulk_remove = ref (fun (_:Reaction_t.t list) -> ())
+let presence_update = ref (fun (_:Presence.t) -> ())
+let typing_start = ref (fun (_:Yojson.Safe.json) -> ())
+let user_update = ref (fun (_:Yojson.Safe.json) -> ())
+let voice_state_update = ref (fun (_:Yojson.Safe.json) -> ())
+let voice_server_update = ref (fun (_:Yojson.Safe.json) -> ())
+let webhooks_update = ref (fun (_:Yojson.Safe.json) -> ()) \ No newline at end of file