From 7ad203a0249bd9db50dfb1df4adb9b7483406e30 Mon Sep 17 00:00:00 2001 From: Matias Goldfeld Date: Fri, 29 Jan 2021 13:40:29 -0500 Subject: Revert "Started conversion to ppx_yojson_conv" This reverts commit c937240fdd2036edd493debb76117165e4084e8b. --- lib/models/guild/member_t.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lib/models/guild/member_t.ml') diff --git a/lib/models/guild/member_t.ml b/lib/models/guild/member_t.ml index 0724e54..4e01b9a 100644 --- a/lib/models/guild/member_t.ml +++ b/lib/models/guild/member_t.ml @@ -6,7 +6,7 @@ type partial_member = { joined_at: string; deaf: bool; mute: bool; -} [@@deriving sexp, yojson] +} [@@deriving sexp, yojson { strict = false; exn = true }] type member = { nick: string option [@default None]; @@ -15,19 +15,19 @@ type member = { deaf: bool; mute: bool; user: User_t.t; -} [@@deriving sexp, yojson] +} [@@deriving sexp, yojson { strict = false; exn = true }] type member_wrapper = { guild_id: Guild_id_t.t; user: User_t.t; -} [@@deriving sexp, yojson] +} [@@deriving sexp, yojson { strict = false; exn = true }] type member_update = { guild_id: Guild_id_t.t; roles: Role_id.t list [@default []]; user: User_t.t; nick: string option [@default None]; -} [@@deriving sexp, yojson] +} [@@deriving sexp, yojson { strict = false; exn = true }] type t = { nick: string option [@default None]; @@ -37,7 +37,7 @@ type t = { mute: bool; user: User_t.t; guild_id: Guild_id_t.t; -} [@@deriving sexp, yojson] +} [@@deriving sexp, yojson { strict = false; exn = true }] let wrap ~guild_id ({nick;roles;joined_at;deaf;mute;user}:member) = {nick;roles;joined_at;deaf;mute;user;guild_id = `Guild_id guild_id} \ No newline at end of file -- cgit v1.2.3