Started conversion to ppx_yojson_conv

1 files changed, 8 insertions, 8 deletions

diff --git a/lib/models/guild/member.ml b/lib/models/guild/member.ml
index c5a7455..e680ecc 100644
--- a/lib/models/guild/member.ml
+++ b/lib/models/guild/member.ml
@@ -2,19 +2,19 @@ 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 user_id = User_id.get_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 user_id = User_id.get_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

+    let user_id = User_id.get_id member.user.id in

     Http.guild_ban_add guild_id user_id (`Assoc [

         ("delete-message-days", `Int days);

         ("reason", `String reason);

@@ -22,7 +22,7 @@ let ban ?(reason="") ?(days=0) member =
 

 let kick ?reason member =

     let `Guild_id guild_id = member.guild_id in

-    let `User_id user_id = member.user.id in

+    let user_id = User_id.get_id member.user.id in

     let payload = match reason with

     | Some r -> `Assoc [("reason", `String r)]

     | None -> `Null

@@ -30,28 +30,28 @@ let kick ?reason member =
 

 let mute member =

     let `Guild_id guild_id = member.guild_id in

-    let `User_id user_id = member.user.id in

+    let user_id = User_id.get_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

+    let user_id = User_id.get_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

+    let user_id = User_id.get_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

+    let user_id = User_id.get_id member.user.id in

     Http.edit_member guild_id user_id (`Assoc [

         ("deaf", `Bool false);

     ])