diff options
| author | Matias Goldfeld <[email protected]> | 2021-01-29 13:42:34 -0500 |
|---|---|---|
| committer | Matias Goldfeld <[email protected]> | 2021-01-29 13:42:34 -0500 |
| commit | 2f37138dedb34651ddb2efd687a8d860b0138778 (patch) | |
| tree | b0d89ca5795724b3bb804f2d65ee609217567ecd /lib/models/user/user.ml | |
| parent | Revert "More 32 bit fixes" (diff) | |
| download | disml-2f37138dedb34651ddb2efd687a8d860b0138778.tar.xz disml-2f37138dedb34651ddb2efd687a8d860b0138778.zip | |
Reverted attempts to add 32-bit compatibility
Diffstat (limited to 'lib/models/user/user.ml')
| -rw-r--r-- | lib/models/user/user.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/models/user/user.ml b/lib/models/user/user.ml index b8c3b25..8b14b76 100644 --- a/lib/models/user/user.ml +++ b/lib/models/user/user.ml @@ -5,19 +5,17 @@ let tag user = Printf.sprintf "%s#%s" user.username user.discriminator
let mention user =
- let `User_id id = user.id in
- Printf.sprintf "<@%d>" id
+ Printf.sprintf "<@%Ld>" (User_id.get_id user.id)
let default_avatar user =
- let avatar = Int.of_string user.discriminator % 5 in
+ 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 id avatar ext
+ Endpoints.cdn_avatar (User_id.get_id user.id) avatar ext
| None -> default_avatar user
\ No newline at end of file |