diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-16 23:36:59 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-16 23:36:59 -0700 |
| commit | 6354dbd89d354e5e2499b4c2bea5d5fa95e020df (patch) | |
| tree | a0fd199097bdc675628d5bd735017d92d2067e08 /lib/models/user.ml | |
| parent | Merge branch 'switch-to-deriving_yojson' into 'master' (diff) | |
| download | disml-6354dbd89d354e5e2499b4c2bea5d5fa95e020df.tar.xz disml-6354dbd89d354e5e2499b4c2bea5d5fa95e020df.zip | |
eliminate all functors in favour of a simpler approach
Diffstat (limited to 'lib/models/user.ml')
| -rw-r--r-- | lib/models/user.ml | 34 |
1 files changed, 16 insertions, 18 deletions
diff --git a/lib/models/user.ml b/lib/models/user.ml index 8edcea1..bd6583c 100644 --- a/lib/models/user.ml +++ b/lib/models/user.ml @@ -1,22 +1,20 @@ -module Make(Http : S.Http) = struct - open Core - include User_t +open Core +include User_t - let tag user = - Printf.sprintf "%s#%s" user.username user.discriminator +let tag user = + Printf.sprintf "%s#%s" user.username user.discriminator - let mention user = - Printf.sprintf "<@%d>" user.id +let mention user = + Printf.sprintf "<@%d>" user.id - let default_avatar user = - let avatar = Int.of_string user.discriminator % 5 in - Endpoints.cdn_default_avatar avatar +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 - | Some avatar -> - let ext = if String.is_substring ~substring:"a_" avatar - then "gif" - else "png" in - Endpoints.cdn_avatar user.id avatar ext - | None -> default_avatar user -end
\ No newline at end of file +let face user = 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 + | None -> default_avatar user
\ No newline at end of file |