diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-28 10:31:51 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-28 10:31:51 -0700 |
| commit | 8662e92987c437f59d09896a247ec2b5d82c4528 (patch) | |
| tree | f004cc14598351d4ad6b19d8e993d2f629c5e738 /lib/models/guild/member.ml | |
| parent | Add more docs (diff) | |
| download | disml-8662e92987c437f59d09896a247ec2b5d82c4528.tar.xz disml-8662e92987c437f59d09896a247ec2b5d82c4528.zip | |
Publish docs updates
Diffstat (limited to 'lib/models/guild/member.ml')
| -rw-r--r-- | lib/models/guild/member.ml | 114 |
1 files changed, 57 insertions, 57 deletions
diff --git a/lib/models/guild/member.ml b/lib/models/guild/member.ml index f083cce..c5a7455 100644 --- a/lib/models/guild/member.ml +++ b/lib/models/guild/member.ml @@ -1,57 +1,57 @@ -include Member_t - -let add_role ~(role:Role_t.t) member = - let `Guild_id guild_id = member.guild_id in - let `User_id user_id = member.user.id in - let `Role_id role_id = role.id in - Http.add_member_role guild_id user_id role_id - -let remove_role ~(role:Role_t.t) member = - let `Guild_id guild_id = member.guild_id in - let `User_id user_id = member.user.id in - let `Role_id role_id = role.id in - Http.remove_member_role guild_id user_id role_id - -let ban ?(reason="") ?(days=0) member = - let `Guild_id guild_id = member.guild_id in - let `User_id user_id = member.user.id in - Http.guild_ban_add guild_id user_id (`Assoc [ - ("delete-message-days", `Int days); - ("reason", `String reason); - ]) - -let kick ?reason member = - let `Guild_id guild_id = member.guild_id in - let `User_id user_id = member.user.id in - let payload = match reason with - | Some r -> `Assoc [("reason", `String r)] - | None -> `Null - in Http.remove_member guild_id user_id payload - -let mute member = - let `Guild_id guild_id = member.guild_id in - let `User_id user_id = member.user.id in - Http.edit_member guild_id user_id (`Assoc [ - ("mute", `Bool true); - ]) - -let deafen member = - let `Guild_id guild_id = member.guild_id in - let `User_id user_id = member.user.id in - Http.edit_member guild_id user_id (`Assoc [ - ("deaf", `Bool true); - ]) - -let unmute member = - let `Guild_id guild_id = member.guild_id in - let `User_id user_id = member.user.id in - Http.edit_member guild_id user_id (`Assoc [ - ("mute", `Bool false); - ]) - -let undeafen member = - let `Guild_id guild_id = member.guild_id in - let `User_id user_id = member.user.id in - Http.edit_member guild_id user_id (`Assoc [ - ("deaf", `Bool false); - ]) +include Member_t
+
+let add_role ~(role:Role_t.t) member =
+ let `Guild_id guild_id = member.guild_id in
+ let `User_id user_id = member.user.id in
+ let `Role_id role_id = role.id in
+ Http.add_member_role guild_id user_id role_id
+
+let remove_role ~(role:Role_t.t) member =
+ let `Guild_id guild_id = member.guild_id in
+ let `User_id user_id = member.user.id in
+ let `Role_id role_id = role.id in
+ Http.remove_member_role guild_id user_id role_id
+
+let ban ?(reason="") ?(days=0) member =
+ let `Guild_id guild_id = member.guild_id in
+ let `User_id user_id = member.user.id in
+ Http.guild_ban_add guild_id user_id (`Assoc [
+ ("delete-message-days", `Int days);
+ ("reason", `String reason);
+ ])
+
+let kick ?reason member =
+ let `Guild_id guild_id = member.guild_id in
+ let `User_id user_id = member.user.id in
+ let payload = match reason with
+ | Some r -> `Assoc [("reason", `String r)]
+ | None -> `Null
+ in Http.remove_member guild_id user_id payload
+
+let mute member =
+ let `Guild_id guild_id = member.guild_id in
+ let `User_id user_id = member.user.id in
+ Http.edit_member guild_id user_id (`Assoc [
+ ("mute", `Bool true);
+ ])
+
+let deafen member =
+ let `Guild_id guild_id = member.guild_id in
+ let `User_id user_id = member.user.id in
+ Http.edit_member guild_id user_id (`Assoc [
+ ("deaf", `Bool true);
+ ])
+
+let unmute member =
+ let `Guild_id guild_id = member.guild_id in
+ let `User_id user_id = member.user.id in
+ Http.edit_member guild_id user_id (`Assoc [
+ ("mute", `Bool false);
+ ])
+
+let undeafen member =
+ let `Guild_id guild_id = member.guild_id in
+ let `User_id user_id = member.user.id in
+ Http.edit_member guild_id user_id (`Assoc [
+ ("deaf", `Bool false);
+ ])
|