aboutsummaryrefslogtreecommitdiff
path: root/lib/models/user.ml
diff options
context:
space:
mode:
authorAdelyn Breelove <[email protected]>2019-01-10 16:15:20 -0700
committerAdelyn Breelove <[email protected]>2019-01-10 16:15:20 -0700
commitb7f8f0de01c5014703376d7204b62d8e47c9179a (patch)
tree45904decd22a7025e6dcb4e7cdb61ab754b5fe5f /lib/models/user.ml
parentAAAAAAAAAAAAAAAAAAAAAAAA (diff)
downloaddisml-b7f8f0de01c5014703376d7204b62d8e47c9179a.tar.xz
disml-b7f8f0de01c5014703376d7204b62d8e47c9179a.zip
Fix some deserializing bits
Diffstat (limited to 'lib/models/user.ml')
-rw-r--r--lib/models/user.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/models/user.ml b/lib/models/user.ml
index b83781d..8edcea1 100644
--- a/lib/models/user.ml
+++ b/lib/models/user.ml
@@ -3,13 +3,13 @@ module Make(Http : S.Http) = struct
include User_t
let tag user =
- Printf.sprintf "%s#%d" user.username user.discriminator
+ Printf.sprintf "%s#%s" user.username user.discriminator
let mention user =
Printf.sprintf "<@%d>" user.id
let default_avatar user =
- let avatar = user.discriminator % 5 in
+ let avatar = Int.of_string user.discriminator % 5 in
Endpoints.cdn_default_avatar avatar
let face user = match user.avatar with