diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-27 14:09:33 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-27 14:09:33 -0700 |
| commit | fbd3597c7ab798cf10a447eb2b477dd4e3ed6d33 (patch) | |
| tree | 16d1ef889e9c6f1090dd911e6fb31392625066c2 /lib/models/guild/role.ml | |
| parent | hopeful reconnection fix (diff) | |
| download | disml-fbd3597c7ab798cf10a447eb2b477dd4e3ed6d33.tar.xz disml-fbd3597c7ab798cf10a447eb2b477dd4e3ed6d33.zip | |
Switch to ID abstractions internally
Diffstat (limited to 'lib/models/guild/role.ml')
| -rw-r--r-- | lib/models/guild/role.ml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/models/guild/role.ml b/lib/models/guild/role.ml index ee6bb0a..46f908b 100644 --- a/lib/models/guild/role.ml +++ b/lib/models/guild/role.ml @@ -1,11 +1,17 @@ include Role_t -let edit_role ~body (role:t) = Http.guild_role_edit role.guild_id role.id body +let edit_role ~body (role:t) = + let `Role_id id = role.id in + let `Guild_id guild_id = role.guild_id in + Http.guild_role_edit guild_id id body let allow_mention role = edit_role ~body:(`Assoc [("mentionable", `Bool true)]) role -let delete (role:t) = Http.guild_role_remove role.guild_id role.id +let delete (role:t) = + let `Role_id id = role.id in + let `Guild_id guild_id = role.guild_id in + Http.guild_role_remove guild_id id let disallow_mention role = edit_role ~body:(`Assoc [("mentionable", `Bool false)]) role |