From b9ee77f8153090e9d47e73ab195540d10720c7b6 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 10 Jan 2019 13:12:49 -0700 Subject: AAAAAAAAAAAAAAAAAAAAAAAA --- lib/models/user.ml | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'lib/models/user.ml') diff --git a/lib/models/user.ml b/lib/models/user.ml index cd91a39..b83781d 100644 --- a/lib/models/user.ml +++ b/lib/models/user.ml @@ -1,13 +1,11 @@ module Make(Http : S.Http) = struct open Core - open User_t - - type t = User_t.t + include User_t let tag user = Printf.sprintf "%s#%d" user.username user.discriminator - let mention (user:User_t.t) = + let mention user = Printf.sprintf "<@%d>" user.id let default_avatar user = -- cgit v1.2.3 From b7f8f0de01c5014703376d7204b62d8e47c9179a Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 10 Jan 2019 16:15:20 -0700 Subject: Fix some deserializing bits --- lib/models/user.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/models/user.ml') 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 -- cgit v1.2.3