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/embed.ml | |
| parent | More deserialization fixes (diff) | |
| download | disml-c5bfc108ca6a1e7a21492b4318de78a74ed801f9.tar.xz disml-c5bfc108ca6a1e7a21492b4318de78a74ed801f9.zip | |
Add deriving sexp to models
Diffstat (limited to 'lib/models/embed.ml')
| -rw-r--r-- | lib/models/embed.ml | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lib/models/embed.ml b/lib/models/embed.ml index 627d617..4faaba7 100644 --- a/lib/models/embed.ml +++ b/lib/models/embed.ml @@ -1,39 +1,41 @@ +open Core + type footer = { text: string; icon_url: string option [@default None]; proxy_icon_url: string option [@default None]; -} [@@deriving yojson] +} [@@deriving sexp, yojson] type image = { url: string option [@default None]; proxy_url: string option [@default None]; height: int option [@default None]; width: int option [@default None]; -} [@@deriving yojson] +} [@@deriving sexp, yojson] type video = { url: string option [@default None]; height: int option [@default None]; width: int option [@default None]; -} [@@deriving yojson] +} [@@deriving sexp, yojson] type provider = { name: string option [@default None]; url: string option [@default None]; -} [@@deriving yojson] +} [@@deriving sexp, yojson] type author = { name: string option [@default None]; url: string option [@default None]; icon_url: string option [@default None]; proxy_icon_url: string option [@default None]; -} [@@deriving yojson] +} [@@deriving sexp, yojson] type field = { name: string; value: string; inline: bool [@default true]; -} [@@deriving yojson] +} [@@deriving sexp, yojson] type t = { title: string option [@default None]; @@ -49,4 +51,4 @@ type t = { provider: provider option [@default None]; author: author option [@default None]; fields: field list [@default []]; -} [@@deriving yojson { strict = false }]
\ No newline at end of file +} [@@deriving sexp, yojson { strict = false }]
\ No newline at end of file |