aboutsummaryrefslogtreecommitdiff
path: root/lib/models/member_t.ml
diff options
context:
space:
mode:
authorAdelyn Breelove <[email protected]>2019-01-10 13:12:49 -0700
committerAdelyn Breelove <[email protected]>2019-01-10 13:12:49 -0700
commitb9ee77f8153090e9d47e73ab195540d10720c7b6 (patch)
treed36bdb7ce17e03ee1bdb60d6b638f8ac6e022711 /lib/models/member_t.ml
parentWhy are events so confusing (diff)
downloaddisml-b9ee77f8153090e9d47e73ab195540d10720c7b6.tar.xz
disml-b9ee77f8153090e9d47e73ab195540d10720c7b6.zip
AAAAAAAAAAAAAAAAAAAAAAAA
Diffstat (limited to 'lib/models/member_t.ml')
-rw-r--r--lib/models/member_t.ml34
1 files changed, 34 insertions, 0 deletions
diff --git a/lib/models/member_t.ml b/lib/models/member_t.ml
new file mode 100644
index 0000000..d7ce337
--- /dev/null
+++ b/lib/models/member_t.ml
@@ -0,0 +1,34 @@
+type partial_member = {
+ nick: string option [@default None];
+ roles: Snowflake.t list;
+ joined_at: string;
+ deaf: bool;
+ mute: bool;
+} [@@deriving yojson]
+
+type member = {
+ nick: string option [@default None];
+ roles: Snowflake.t list;
+ joined_at: string;
+ deaf: bool;
+ mute: bool;
+ user: User_t.t;
+} [@@deriving yojson]
+
+type member_update = {
+ guild_id: Snowflake.t [@key "id"];
+ member: member;
+} [@@deriving yojson]
+
+type t = {
+ nick: string option [@default None];
+ roles: Snowflake.t list;
+ joined_at: string;
+ deaf: bool;
+ mute: bool;
+ user: User_t.t;
+ guild_id: Snowflake.t;
+} [@@deriving yojson]
+
+let wrap ~guild_id ({nick;roles;joined_at;deaf;mute;user}:member) =
+ {nick;roles;joined_at;deaf;mute;user;guild_id} \ No newline at end of file