diff options
| author | Adelyn Breelove <[email protected]> | 2018-12-17 15:04:02 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-12-17 15:04:02 -0700 |
| commit | 10ff247b7643fb0bb3aade5faff37c569feb0a20 (patch) | |
| tree | 662767c51baf3c39591ee7fecbc36d6642a93243 /lib/models/role.ml | |
| parent | Some abstractions (diff) | |
| download | disml-10ff247b7643fb0bb3aade5faff37c569feb0a20.tar.xz disml-10ff247b7643fb0bb3aade5faff37c569feb0a20.zip | |
More stuff
Diffstat (limited to 'lib/models/role.ml')
| -rw-r--r-- | lib/models/role.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/models/role.ml b/lib/models/role.ml index 10272a7..e65d61e 100644 --- a/lib/models/role.ml +++ b/lib/models/role.ml @@ -1,6 +1,11 @@ -module Make(Http : S.Http) = struct - open Role_t +open Role_t + +let wrap { id; role; } = + let guild_id = id in + let {id;name;colour;hoist;position;permissions;managed;mentionable} = role in + {id;name;colour;hoist;position;permissions;managed;mentionable;guild_id} +module Make(Http : S.Http) = struct let edit_role ~body role = Http.guild_role_edit role.guild_id role.id body let allow_mention role = |