From d342c4cf9fe907d2107cd815f9988f8ad147218b Mon Sep 17 00:00:00 2001 From: Mishio595 Date: Sat, 24 Nov 2018 09:51:03 -0700 Subject: Major structural changes --- lib/model/channel.ml | 1 - lib/model/emoji.ml | 1 - lib/model/guild.ml | 26 -------------------------- lib/model/member.ml | 1 - lib/model/message.ml | 1 - lib/model/presence.ml | 1 - lib/model/role.ml | 1 - lib/model/user.ml | 26 -------------------------- lib/model/voiceState.ml | 1 - 9 files changed, 59 deletions(-) delete mode 100644 lib/model/channel.ml delete mode 100644 lib/model/emoji.ml delete mode 100644 lib/model/guild.ml delete mode 100644 lib/model/member.ml delete mode 100644 lib/model/message.ml delete mode 100644 lib/model/presence.ml delete mode 100644 lib/model/role.ml delete mode 100644 lib/model/user.ml delete mode 100644 lib/model/voiceState.ml (limited to 'lib/model') diff --git a/lib/model/channel.ml b/lib/model/channel.ml deleted file mode 100644 index eb6679e..0000000 --- a/lib/model/channel.ml +++ /dev/null @@ -1 +0,0 @@ -type t \ No newline at end of file diff --git a/lib/model/emoji.ml b/lib/model/emoji.ml deleted file mode 100644 index eb6679e..0000000 --- a/lib/model/emoji.ml +++ /dev/null @@ -1 +0,0 @@ -type t \ No newline at end of file diff --git a/lib/model/guild.ml b/lib/model/guild.ml deleted file mode 100644 index 6345c17..0000000 --- a/lib/model/guild.ml +++ /dev/null @@ -1,26 +0,0 @@ -type t = { - afk_channel_id: int option; - afk_timeout: int; - application_id: int option; - channels: Channel.t list; - default_message_notifications: int; - emojis: Emoji.t list; - explicit_content_filter: int; - features: string list; - icon: string option; - id: int; - joined_at: string; - large: bool; - member_count: int; - members: Member.t list; - mfa_level: int; - name: string; - owner_id: int; - presences: Presence.t list; - region: string; - roles: Role.t list; - splash: string option; - system_channel_id: int option; - verification_level: int; - voice_states: VoiceState.t list; -} diff --git a/lib/model/member.ml b/lib/model/member.ml deleted file mode 100644 index eb6679e..0000000 --- a/lib/model/member.ml +++ /dev/null @@ -1 +0,0 @@ -type t \ No newline at end of file diff --git a/lib/model/message.ml b/lib/model/message.ml deleted file mode 100644 index eb6679e..0000000 --- a/lib/model/message.ml +++ /dev/null @@ -1 +0,0 @@ -type t \ No newline at end of file diff --git a/lib/model/presence.ml b/lib/model/presence.ml deleted file mode 100644 index eb6679e..0000000 --- a/lib/model/presence.ml +++ /dev/null @@ -1 +0,0 @@ -type t \ No newline at end of file diff --git a/lib/model/role.ml b/lib/model/role.ml deleted file mode 100644 index eb6679e..0000000 --- a/lib/model/role.ml +++ /dev/null @@ -1 +0,0 @@ -type t \ No newline at end of file diff --git a/lib/model/user.ml b/lib/model/user.ml deleted file mode 100644 index 182ea6a..0000000 --- a/lib/model/user.ml +++ /dev/null @@ -1,26 +0,0 @@ -type t = { - id: int; - username: string; - discriminator: string; - avatar: string option; - bot: bool; -} - -let from_json term = - let module J = Yojson.Basic.Util in - let id = J.member "id" term - |> J.to_string - |> int_of_string - in - let username = J.member "username" term - |> J.to_string in - let discriminator = J.member "discriminator" term - |> J.to_string in - let avatar = J.member "avatar" term - |> J.to_string_option in - let bot = J.member "bot" term - |> J.to_bool in - { id; username; discriminator; avatar; bot; } - -let tag user = - user.username ^ user.discriminator diff --git a/lib/model/voiceState.ml b/lib/model/voiceState.ml deleted file mode 100644 index eb6679e..0000000 --- a/lib/model/voiceState.ml +++ /dev/null @@ -1 +0,0 @@ -type t \ No newline at end of file -- cgit v1.2.3