From b2f081fff12093a7d3434859ebd621608dde6c7d Mon Sep 17 00:00:00 2001
From: Matias Goldfeld <mg2277@cornell.edu>
Date: Sun, 7 Feb 2021 20:21:47 -0500
Subject: Reverted earlier changes for good

---
 lib/models/channel/message/embed.mli | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'lib/models/channel/message/embed.mli')

diff --git a/lib/models/channel/message/embed.mli b/lib/models/channel/message/embed.mli
index 17fea52..fb86c94 100644
--- a/lib/models/channel/message/embed.mli
+++ b/lib/models/channel/message/embed.mli
@@ -3,7 +3,7 @@ type footer = {
     text: string;
     icon_url: string option;
     proxy_icon_url: string option;
-} [@@deriving sexp, yojson]
+} [@@deriving sexp, yojson { exn = true }]
 
 (** An image object belonging to an embed. *)
 type image = {
@@ -11,20 +11,20 @@ type image = {
     proxy_url: string option;
     height: int option;
     width: int option;
-} [@@deriving sexp, yojson]
+} [@@deriving sexp, yojson { exn = true }]
 
 (** A video object belonging to an embed. *)
 type video = {
     url: string option;
     height: int option;
     width: int option;
-} [@@deriving sexp, yojson]
+} [@@deriving sexp, yojson { exn = true }]
 
 (** A provider object belonging to an embed. *)
 type provider = {
     name: string option;
     url: string option;
-} [@@deriving sexp, yojson]
+} [@@deriving sexp, yojson { exn = true }]
 
 (** An author object belonging to an embed. *)
 type author = {
@@ -32,14 +32,14 @@ type author = {
     url: string option;
     icon_url: string option;
     proxy_icon_url: string option;
-} [@@deriving sexp, yojson]
+} [@@deriving sexp, yojson { exn = true }]
 
 (** A field object belonging to an embed. *)
 type field = {
     name: string;
     value: string;
     inline: bool;
-} [@@deriving sexp, yojson]
+} [@@deriving sexp, yojson { exn = true }]
 
 (** An embed object. See this {{:https://leovoel.github.io/embed-visualizer/}embed visualiser} if you need help understanding each component. *)
 type t = {
@@ -56,7 +56,7 @@ type t = {
     provider: provider option;
     author: author option;
     fields: field list [@default []];
-} [@@deriving sexp, yojson]
+} [@@deriving sexp, yojson { strict = false; exn = true }]
 
 (** An embed where all values are empty. *)
 val default : t
-- 
cgit v1.2.3