From 011e3224c0292dfcb0024daf474d4ef1e00b82f0 Mon Sep 17 00:00:00 2001 From: Mishio595 Date: Sun, 25 Nov 2018 16:02:37 -0700 Subject: A lot is going on... --- lib/models/embed.ml | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 lib/models/embed.ml (limited to 'lib/models/embed.ml') diff --git a/lib/models/embed.ml b/lib/models/embed.ml new file mode 100644 index 0000000..6ba1115 --- /dev/null +++ b/lib/models/embed.ml @@ -0,0 +1,44 @@ +type footer = { + text: string; + icon_url: string option; + proxy_icon_url: string option; +} + +type image = { + url: string option; + proxy_url: string option; + height: int option; + width: int option; +} + +type video = { + url: string option; + height: int option; + width: int option; +} + +type provider = { + name: string option; + url: string option; +} + +type field = { + name: string; + value: string; + inline: bool option; +} + +type t = { + title: string option; + kind: string option; + description: string option; + url: string option; + timestamp: string option; + colour: int option; + footer: footer option; + image: image option; + thumbnail: image option; + video: video option; + provider: provider option; + fields: (field list) option; +} \ No newline at end of file -- cgit v1.2.3 From 260ccd9960b852b9c69b88e9840d5a8b22bb8e1d Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Wed, 12 Dec 2018 15:00:46 -0700 Subject: Work on event dispatch and add model derives --- lib/models/embed.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lib/models/embed.ml') diff --git a/lib/models/embed.ml b/lib/models/embed.ml index 6ba1115..b4dc143 100644 --- a/lib/models/embed.ml +++ b/lib/models/embed.ml @@ -2,31 +2,31 @@ type footer = { text: string; icon_url: string option; proxy_icon_url: string option; -} +} [@@deriving yojson] type image = { url: string option; proxy_url: string option; height: int option; width: int option; -} +} [@@deriving yojson] type video = { url: string option; height: int option; width: int option; -} +} [@@deriving yojson] type provider = { name: string option; url: string option; -} +} [@@deriving yojson] type field = { name: string; value: string; inline: bool option; -} +} [@@deriving yojson] type t = { title: string option; @@ -41,4 +41,4 @@ type t = { video: video option; provider: provider option; fields: (field list) option; -} \ No newline at end of file +} [@@deriving yojson] \ No newline at end of file -- cgit v1.2.3 From 73d115ce6260e97f5f7ee47f743d842ffd292662 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 13 Dec 2018 14:11:54 -0700 Subject: Working on deriving types from json --- lib/models/embed.ml | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 lib/models/embed.ml (limited to 'lib/models/embed.ml') diff --git a/lib/models/embed.ml b/lib/models/embed.ml deleted file mode 100644 index b4dc143..0000000 --- a/lib/models/embed.ml +++ /dev/null @@ -1,44 +0,0 @@ -type footer = { - text: string; - icon_url: string option; - proxy_icon_url: string option; -} [@@deriving yojson] - -type image = { - url: string option; - proxy_url: string option; - height: int option; - width: int option; -} [@@deriving yojson] - -type video = { - url: string option; - height: int option; - width: int option; -} [@@deriving yojson] - -type provider = { - name: string option; - url: string option; -} [@@deriving yojson] - -type field = { - name: string; - value: string; - inline: bool option; -} [@@deriving yojson] - -type t = { - title: string option; - kind: string option; - description: string option; - url: string option; - timestamp: string option; - colour: int option; - footer: footer option; - image: image option; - thumbnail: image option; - video: video option; - provider: provider option; - fields: (field list) option; -} [@@deriving yojson] \ No newline at end of file -- cgit v1.2.3 From af684566617ebce536e9f30693aa3e225af906c4 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Fri, 14 Dec 2018 10:52:36 -0700 Subject: There's a lot going on --- lib/models/embed.ml | 2 ++ 1 file changed, 2 insertions(+) create mode 100644 lib/models/embed.ml (limited to 'lib/models/embed.ml') diff --git a/lib/models/embed.ml b/lib/models/embed.ml new file mode 100644 index 0000000..36b7d4b --- /dev/null +++ b/lib/models/embed.ml @@ -0,0 +1,2 @@ +module Make(Http : S.Http) = struct +end \ No newline at end of file -- cgit v1.2.3