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/role.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/role.ml')
| -rw-r--r-- | lib/models/role.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lib/models/role.ml b/lib/models/role.ml index e65d61e..5a3701c 100644 --- a/lib/models/role.ml +++ b/lib/models/role.ml @@ -1,11 +1,8 @@ -open Role_t +module Make(Http : S.Http) = struct + 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} + type t = Role_t.t -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 = |