lib/models/member.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

module Make(Http : S.Http) = struct
	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
end