diff options
Diffstat (limited to 'lib/models/user/user.ml')
| -rw-r--r-- | lib/models/user/user.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/models/user/user.ml b/lib/models/user/user.ml index bd6583c..de7ce01 100644 --- a/lib/models/user/user.ml +++ b/lib/models/user/user.ml @@ -5,16 +5,19 @@ let tag user = Printf.sprintf "%s#%s" user.username user.discriminator let mention user = - Printf.sprintf "<@%d>" user.id + let `User_id id = user.id in + Printf.sprintf "<@%d>" id let default_avatar user = let avatar = Int.of_string user.discriminator % 5 in Endpoints.cdn_default_avatar avatar -let face user = match user.avatar with +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 avatar ext + Endpoints.cdn_avatar id avatar ext | None -> default_avatar user
\ No newline at end of file |