diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-27 14:09:33 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-27 14:09:33 -0700 |
| commit | fbd3597c7ab798cf10a447eb2b477dd4e3ed6d33 (patch) | |
| tree | 16d1ef889e9c6f1090dd911e6fb31392625066c2 /lib/models/user/user.ml | |
| parent | hopeful reconnection fix (diff) | |
| download | disml-fbd3597c7ab798cf10a447eb2b477dd4e3ed6d33.tar.xz disml-fbd3597c7ab798cf10a447eb2b477dd4e3ed6d33.zip | |
Switch to ID abstractions internally
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 |