Reverted earlier changes for goodHEADorigin/masterorigin/HEADmaster

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