From b9ee77f8153090e9d47e73ab195540d10720c7b6 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 10 Jan 2019 13:12:49 -0700 Subject: AAAAAAAAAAAAAAAAAAAAAAAA --- lib/models/role_t.ml | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 lib/models/role_t.ml (limited to 'lib/models/role_t.ml') diff --git a/lib/models/role_t.ml b/lib/models/role_t.ml new file mode 100644 index 0000000..88b2a4e --- /dev/null +++ b/lib/models/role_t.ml @@ -0,0 +1,30 @@ +type role = { + id: Snowflake.t; + name: string; + colour: int [@key "color"]; + hoist: bool; + position: int; + permissions: int; + managed: bool; + mentionable: bool; +} [@@deriving yojson] + +type role_update = { + role: role; + guild_id: Snowflake.t; +} [@@deriving yojson] + +type t = { + id: Snowflake.t; + name: string; + colour: int [@key "color"]; + hoist: bool; + position: int; + permissions: int; + managed: bool; + mentionable: bool; + guild_id: Snowflake.t; +} [@@deriving yojson] + +let wrap ~guild_id ({id;name;colour;hoist;position;permissions;managed;mentionable}:role) = + {id;name;colour;hoist;position;permissions;managed;mentionable;guild_id} \ No newline at end of file -- cgit v1.2.3 From b7f8f0de01c5014703376d7204b62d8e47c9179a Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 10 Jan 2019 16:15:20 -0700 Subject: Fix some deserializing bits --- lib/models/role_t.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/models/role_t.ml') diff --git a/lib/models/role_t.ml b/lib/models/role_t.ml index 88b2a4e..ae54f7a 100644 --- a/lib/models/role_t.ml +++ b/lib/models/role_t.ml @@ -7,12 +7,12 @@ type role = { permissions: int; managed: bool; mentionable: bool; -} [@@deriving yojson] +} [@@deriving yojson { strict = false}] type role_update = { role: role; guild_id: Snowflake.t; -} [@@deriving yojson] +} [@@deriving yojson { strict = false}] type t = { id: Snowflake.t; @@ -24,7 +24,7 @@ type t = { managed: bool; mentionable: bool; guild_id: Snowflake.t; -} [@@deriving yojson] +} [@@deriving yojson { strict = false}] let wrap ~guild_id ({id;name;colour;hoist;position;permissions;managed;mentionable}:role) = {id;name;colour;hoist;position;permissions;managed;mentionable;guild_id} \ No newline at end of file -- cgit v1.2.3 From c5bfc108ca6a1e7a21492b4318de78a74ed801f9 Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Sun, 13 Jan 2019 16:51:04 -0700 Subject: Add deriving sexp to models --- lib/models/role_t.ml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lib/models/role_t.ml') diff --git a/lib/models/role_t.ml b/lib/models/role_t.ml index ae54f7a..e41f31d 100644 --- a/lib/models/role_t.ml +++ b/lib/models/role_t.ml @@ -1,3 +1,5 @@ +open Core + type role = { id: Snowflake.t; name: string; @@ -7,12 +9,12 @@ type role = { permissions: int; managed: bool; mentionable: bool; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type role_update = { role: role; guild_id: Snowflake.t; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type t = { id: Snowflake.t; @@ -24,7 +26,7 @@ type t = { managed: bool; mentionable: bool; guild_id: Snowflake.t; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] let wrap ~guild_id ({id;name;colour;hoist;position;permissions;managed;mentionable}:role) = {id;name;colour;hoist;position;permissions;managed;mentionable;guild_id} \ No newline at end of file -- cgit v1.2.3