Initial Lwt changes. Successfully compiles

1 files changed, 2 insertions, 3 deletions

diff --git a/lib/models/user/user.ml b/lib/models/user/user.ml
index b8c3b25..4df2f1c 100644
--- a/lib/models/user/user.ml
+++ b/lib/models/user/user.ml
@@ -1,4 +1,3 @@
-open Core

 include User_t

 

 let tag user =

@@ -9,14 +8,14 @@ let mention user =
     Printf.sprintf "<@%d>" id

 

 let default_avatar user =

-    let avatar = Int.of_string user.discriminator % 5 in

+    let avatar = int_of_string user.discriminator mod 5 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

+        let ext = if Base.String.is_substring ~substring:"a_" avatar

         then "gif"

         else "png" in

         Endpoints.cdn_avatar id avatar ext