diff options
| author | Matias Goldfeld <[email protected]> | 2021-01-28 02:26:36 -0500 |
|---|---|---|
| committer | Matias Goldfeld <[email protected]> | 2021-01-28 02:26:36 -0500 |
| commit | c937240fdd2036edd493debb76117165e4084e8b (patch) | |
| tree | b0d89ca5795724b3bb804f2d65ee609217567ecd /lib/models/guild/guild.ml | |
| parent | More Int64 refactors (diff) | |
| download | disml-c937240fdd2036edd493debb76117165e4084e8b.tar.xz disml-c937240fdd2036edd493debb76117165e4084e8b.zip | |
Started conversion to ppx_yojson_conv
Diffstat (limited to 'lib/models/guild/guild.ml')
| -rw-r--r-- | lib/models/guild/guild.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/models/guild/guild.ml b/lib/models/guild/guild.ml index 14861fe..f67d5c2 100644 --- a/lib/models/guild/guild.ml +++ b/lib/models/guild/guild.ml @@ -113,9 +113,7 @@ let unban_user ~id ?reason guild = let get_member ~(id:User_id_t.t) guild =
match List.find ~f:(fun m -> User_id.compare m.user.id id = 0) guild.members with
| Some m -> Deferred.Or_error.return m
- | None ->
- let `User_id id = id in
- Http.get_member (get_id guild) id
+ | None -> Http.get_member (get_id guild) (User_id.get_id id)
let get_channel ~(id:Channel_id_t.t) guild =
let `Channel_id id = id in
|