diff options
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
|