From c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Mon, 21 Jan 2019 08:52:33 -0700
Subject: folder restructure

---
 lib/models/member.ml | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 lib/models/member.ml

(limited to 'lib/models/member.ml')

diff --git a/lib/models/member.ml b/lib/models/member.ml
deleted file mode 100644
index 25f2f75..0000000
--- a/lib/models/member.ml
+++ /dev/null
@@ -1,43 +0,0 @@
-open Async
-open Core
-include Member_t
-
-let add_role ~(role:Role_t.t) member =
-    Http.add_member_role member.guild_id member.user.id role.id
-    >>| Result.map ~f:ignore
-
-let remove_role ~(role:Role_t.t) member =
-    Http.remove_member_role member.guild_id member.user.id role.id
-    >>| Result.map ~f:ignore
-
-let ban ?(reason="") ?(days=0) member =
-    Http.guild_ban_add member.guild_id member.user.id (`Assoc [
-        ("delete-message-days", `Int days);
-        ("reason", `String reason);
-    ]) >>| Result.map ~f:ignore
-
-let kick ?reason member =
-    let payload = match reason with
-    | Some r -> `Assoc [("reason", `String r)]
-    | None -> `Null
-    in Http.remove_member member.guild_id member.user.id payload >>| Result.map ~f:ignore
-
-let mute member =
-    Http.edit_member member.guild_id member.user.id (`Assoc [
-        ("mute", `Bool true);
-    ]) >>| Result.map ~f:ignore
-
-let deafen member =
-    Http.edit_member member.guild_id member.user.id (`Assoc [
-        ("deaf", `Bool true);
-    ]) >>| Result.map ~f:ignore
-
-let unmute member =
-    Http.edit_member member.guild_id member.user.id (`Assoc [
-        ("mute", `Bool false);
-    ]) >>| Result.map ~f:ignore
-
-let undeafen member =
-    Http.edit_member member.guild_id member.user.id (`Assoc [
-        ("deaf", `Bool false);
-    ]) >>| Result.map ~f:ignore
-- 
cgit v1.2.3