diff options
Diffstat (limited to 'lib/models/channel_t.ml')
| -rw-r--r-- | lib/models/channel_t.ml | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/models/channel_t.ml b/lib/models/channel_t.ml index 2fd2e5a..dce1d54 100644 --- a/lib/models/channel_t.ml +++ b/lib/models/channel_t.ml @@ -10,13 +10,13 @@ type group = { name: string option [@default None]; owner_id: Snowflake.t; recipients: User_t.t list [@default []]; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type dm = { id: Snowflake.t; last_message_id: Snowflake.t option [@default None]; last_pin_timestamp: string option [@default None]; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type guild_text = { id: Snowflake.t; @@ -29,7 +29,7 @@ type guild_text = { topic: string option [@default None]; nsfw: bool; slow_mode_timeout: int option [@default None]; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type guild_voice = { id: Snowflake.t; @@ -39,14 +39,14 @@ type guild_voice = { position: int; user_limit: int [@default -1]; bitrate: int option [@default None]; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type category = { id: Snowflake.t; guild_id: Snowflake.t option [@default None]; position: int; name: string; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type t = | Group of group @@ -54,7 +54,7 @@ type t = | GuildText of guild_text | GuildVoice of guild_voice | Category of category -[@@deriving yojson { strict = false}] +[@@deriving sexp, yojson { strict = false}] type channel_wrapper = { id: Snowflake.t; @@ -74,7 +74,7 @@ type channel_wrapper = { application_id: Snowflake.t option [@default None]; category_id: Snowflake.t option [@default None][@key "parent_id"]; last_pin_timestamp: string option [@default None]; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] let unwrap_as_guild_text {id;guild_id;position;name;topic;nsfw;last_message_id;slow_mode_timeout;category_id;last_pin_timestamp;_} = let position = Option.value_exn position in |