1 files changed, 5 insertions, 3 deletions
diff --git a/lib/models/user/user.ml b/lib/models/user/user.ml
index 8b14b76..b8c3b25 100644
--- a/lib/models/user/user.ml
+++ b/lib/models/user/user.ml
@@ -5,17 +5,19 @@ let tag user =
     Printf.sprintf "%s#%s" user.username user.discriminator
 
 let mention user =
-    Printf.sprintf "<@%Ld>" (User_id.get_id user.id)
+    let `User_id id = user.id in
+    Printf.sprintf "<@%d>" id
 
 let default_avatar user =
-    let avatar = Int64.(of_string user.discriminator % 5L) in
+    let avatar = Int.of_string user.discriminator % 5 in
     Endpoints.cdn_default_avatar avatar
 
 let face user =
+    let `User_id id = user.id in
     match user.avatar with
     | Some avatar ->
         let ext = if String.is_substring ~substring:"a_" avatar
         then "gif"
         else "png" in
-        Endpoints.cdn_avatar (User_id.get_id user.id) avatar ext
+        Endpoints.cdn_avatar id avatar ext
     | None -> default_avatar user
 \ No newline at end of file