From 73d115ce6260e97f5f7ee47f743d842ffd292662 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 13 Dec 2018 14:11:54 -0700 Subject: Working on deriving types from json --- lib/models/member_t.ml | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 lib/models/member_t.ml (limited to 'lib/models/member_t.ml') diff --git a/lib/models/member_t.ml b/lib/models/member_t.ml new file mode 100644 index 0000000..1dd6ecd --- /dev/null +++ b/lib/models/member_t.ml @@ -0,0 +1,15 @@ +(* Auto-generated from "member.atd" *) + [@@@ocaml.warning "-27-32-35-39"] + +type user = User_t.t + +type snowflake = Snowflake_t.t + +type t = { + user: user; + nick: string option; + roles: snowflake list; + joined_at: string; + deaf: bool; + mute: bool +} -- cgit v1.2.3 From 179d9598fe62e2966471b312fd438e98ff3a272a Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 13 Dec 2018 15:50:37 -0700 Subject: Fix more dispatch issues --- lib/models/member_t.ml | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lib/models/member_t.ml') diff --git a/lib/models/member_t.ml b/lib/models/member_t.ml index 1dd6ecd..6262e1b 100644 --- a/lib/models/member_t.ml +++ b/lib/models/member_t.ml @@ -6,7 +6,15 @@ type user = User_t.t type snowflake = Snowflake_t.t type t = { - user: user; + nick: string option; + roles: snowflake list; + joined_at: string; + deaf: bool; + mute: bool; + user: user +} + +type partial_member = { nick: string option; roles: snowflake list; joined_at: string; -- cgit v1.2.3