diff options
Diffstat (limited to 'lib/models/guild.ml')
| -rw-r--r-- | lib/models/guild.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/models/guild.ml b/lib/models/guild.ml index ade67be..7364327 100644 --- a/lib/models/guild.ml +++ b/lib/models/guild.ml @@ -62,7 +62,11 @@ module Make(Http : S.Http) = struct m |> Yojson.Safe.to_string |> Member_j.t_of_string let get_prune_count ~days guild = Http.guild_prune_count guild.id days - let get_role ~id guild = List.find ~f:(fun r -> r.id = id) guild.roles + + let get_role ~id guild = + let role = List.find ~f:(fun r -> r.id = id) guild.roles in + Option.(role >>| fun role -> Role.wrap { role; id=guild.id; }) + let get_webhooks guild = Http.get_guild_webhooks guild.id let kick_user ~id ?reason guild = |