diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-13 16:51:04 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-13 16:51:04 -0700 |
| commit | c5bfc108ca6a1e7a21492b4318de78a74ed801f9 (patch) | |
| tree | 191164d198c07cf388d9aae8a54013e5613c272c /lib/models/role_t.ml | |
| parent | More deserialization fixes (diff) | |
| download | disml-c5bfc108ca6a1e7a21492b4318de78a74ed801f9.tar.xz disml-c5bfc108ca6a1e7a21492b4318de78a74ed801f9.zip | |
Add deriving sexp to models
Diffstat (limited to 'lib/models/role_t.ml')
| -rw-r--r-- | lib/models/role_t.ml | 8 |
1 files changed, 5 insertions, 3 deletions
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 |