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/guild_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/guild_t.ml')
| -rw-r--r-- | lib/models/guild_t.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/models/guild_t.ml b/lib/models/guild_t.ml index 5183fc7..6bb5090 100644 --- a/lib/models/guild_t.ml +++ b/lib/models/guild_t.ml @@ -27,7 +27,7 @@ type pre = { member_count: int option [@default None]; members: Member_t.member list; channels: Channel_t.channel_wrapper list; -} [@@deriving yojson { strict = false }] +} [@@deriving sexp, yojson { strict = false }] type t = { id: Snowflake.t; @@ -56,7 +56,7 @@ type t = { member_count: int option [@default None]; members: Member_t.t list; channels: Channel_t.t list; -} [@@deriving yojson { strict = false }] +} [@@deriving sexp, yojson { strict = false }] let wrap ({id;name;icon;splash;owner_id;region;afk_channel_id;afk_timeout;embed_enabled;embed_channel_id;verification_level;default_message_notifications;explicit_content_filter;roles;emojis;features;mfa_level;application_id;widget_enabled;widget_channel;system_channel;large;unavailable;member_count;members;channels}:pre) = let roles = List.map ~f:(Role_t.wrap ~guild_id:id) roles in |