diff options
| author | Adelyn Breelove <[email protected]> | 2018-12-19 13:44:04 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-12-19 13:44:04 -0700 |
| commit | 1a73007b3aaa17940173eaff1eb4f6703fd9ec0c (patch) | |
| tree | f8563e2a2ab407c616fd40333d42cdd741e93344 /lib/models/guild.ml | |
| parent | Some refactoring of http code (diff) | |
| download | disml-1a73007b3aaa17940173eaff1eb4f6703fd9ec0c.tar.xz disml-1a73007b3aaa17940173eaff1eb4f6703fd9ec0c.zip | |
Re-arrange autogen serialization files and incorporate into dune file
Diffstat (limited to 'lib/models/guild.ml')
| -rw-r--r-- | lib/models/guild.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/models/guild.ml b/lib/models/guild.ml index 381de15..b4e2a64 100644 --- a/lib/models/guild.ml +++ b/lib/models/guild.ml @@ -3,6 +3,8 @@ module Make(Http : S.Http) = struct open Async open Guild_t + type t = Guild_t.t + let ban_user ~id ?(reason="") ?(days=0) guild = Http.guild_ban_add guild.id id (`Assoc [ ("delete-message-days", `Int days); @@ -65,7 +67,7 @@ module Make(Http : S.Http) = struct 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; }) + Option.(role >>| fun role -> Event.wrap_role { role; id=guild.id; }) let get_webhooks guild = Http.get_guild_webhooks guild.id |