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/channel.ml | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 lib/models/channel.ml (limited to 'lib/models/channel.ml') diff --git a/lib/models/channel.ml b/lib/models/channel.ml new file mode 100644 index 0000000..78051c3 --- /dev/null +++ b/lib/models/channel.ml @@ -0,0 +1,17 @@ +type t = { + id: Snowflake.t; + kind: int; + (* guild: Guild.t option; *) + position: int option; + permission_overwrites: (int list) option; + name: string option; + topic: string option; + nsfw: bool option; + bitrate: int option; + user_limit: int option; + recipients: (User.t list) option; + icon: string option; + owner_id: Snowflake.t option; + application_id: Snowflake.t option; + parent_id: Snowflake.t 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/channel.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/models/channel.ml') diff --git a/lib/models/channel.ml b/lib/models/channel.ml index 78051c3..ac3e596 100644 --- a/lib/models/channel.ml +++ b/lib/models/channel.ml @@ -14,4 +14,4 @@ type t = { owner_id: Snowflake.t option; application_id: Snowflake.t option; parent_id: Snowflake.t 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/channel.ml | 17 ----------------- 1 file changed, 17 deletions(-) delete mode 100644 lib/models/channel.ml (limited to 'lib/models/channel.ml') diff --git a/lib/models/channel.ml b/lib/models/channel.ml deleted file mode 100644 index ac3e596..0000000 --- a/lib/models/channel.ml +++ /dev/null @@ -1,17 +0,0 @@ -type t = { - id: Snowflake.t; - kind: int; - (* guild: Guild.t option; *) - position: int option; - permission_overwrites: (int list) option; - name: string option; - topic: string option; - nsfw: bool option; - bitrate: int option; - user_limit: int option; - recipients: (User.t list) option; - icon: string option; - owner_id: Snowflake.t option; - application_id: Snowflake.t option; - parent_id: Snowflake.t 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/channel.ml | 2 ++ 1 file changed, 2 insertions(+) create mode 100644 lib/models/channel.ml (limited to 'lib/models/channel.ml') diff --git a/lib/models/channel.ml b/lib/models/channel.ml new file mode 100644 index 0000000..36b7d4b --- /dev/null +++ b/lib/models/channel.ml @@ -0,0 +1,2 @@ +module Make(Http : S.Http) = struct +end \ No newline at end of file -- cgit v1.2.3