Revert "Started conversion to ppx_yojson_conv"

This reverts commit c937240fdd2036edd493debb76117165e4084e8b.

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/models/user/user.ml b/lib/models/user/user.ml
index 8b14b76..0d76d23 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 "<@%Ld>" id

 

 let default_avatar user =

     let avatar = Int64.(of_string user.discriminator % 5L) 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