diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-21 08:52:33 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-21 08:52:33 -0700 |
| commit | c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e (patch) | |
| tree | 3fe6679ff4520899bab9ab9fb96145efd614a3a3 /lib/models/guild/role.ml | |
| parent | swap order of fields in example bot to reflect correct ordering (diff) | |
| download | disml-c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e.tar.xz disml-c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e.zip | |
folder restructure
Diffstat (limited to 'lib/models/guild/role.ml')
| -rw-r--r-- | lib/models/guild/role.ml | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/lib/models/guild/role.ml b/lib/models/guild/role.ml new file mode 100644 index 0000000..ee6bb0a --- /dev/null +++ b/lib/models/guild/role.ml @@ -0,0 +1,23 @@ +include Role_t + +let edit_role ~body (role:t) = Http.guild_role_edit role.guild_id role.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 disallow_mention role = + edit_role ~body:(`Assoc [("mentionable", `Bool false)]) role + +let hoist role = + edit_role ~body:(`Assoc [("hoist", `Bool true)]) role + +let set_colour ~colour role = + edit_role ~body:(`Assoc [("color", `Int colour)]) role + +let set_name ~name role = + edit_role ~body:(`Assoc [("name", `String name)]) role + +let unhoist role = + edit_role ~body:(`Assoc [("hoist", `Bool false)]) role
\ No newline at end of file |