From 7ad203a0249bd9db50dfb1df4adb9b7483406e30 Mon Sep 17 00:00:00 2001 From: Matias Goldfeld Date: Fri, 29 Jan 2021 13:40:29 -0500 Subject: Revert "Started conversion to ppx_yojson_conv" This reverts commit c937240fdd2036edd493debb76117165e4084e8b. --- lib/models/user/user.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib/models/user/user.ml') 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 -- cgit v1.2.3