diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-16 23:36:59 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-16 23:36:59 -0700 |
| commit | 6354dbd89d354e5e2499b4c2bea5d5fa95e020df (patch) | |
| tree | a0fd199097bdc675628d5bd735017d92d2067e08 /lib/models/role.ml | |
| parent | Merge branch 'switch-to-deriving_yojson' into 'master' (diff) | |
| download | disml-6354dbd89d354e5e2499b4c2bea5d5fa95e020df.tar.xz disml-6354dbd89d354e5e2499b4c2bea5d5fa95e020df.zip | |
eliminate all functors in favour of a simpler approach
Diffstat (limited to 'lib/models/role.ml')
| -rw-r--r-- | lib/models/role.ml | 34 |
1 files changed, 15 insertions, 19 deletions
diff --git a/lib/models/role.ml b/lib/models/role.ml index 1d641cb..ee6bb0a 100644 --- a/lib/models/role.ml +++ b/lib/models/role.ml @@ -1,27 +1,23 @@ -module Make(Http : S.Http) = struct - type role = Role_t.role - type role_update = Role_t.role_update - type t = Role_t.t +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) = Http.guild_role_edit role.guild_id role.id body - let allow_mention role = - edit_role ~body:(`Assoc [("mentionable", `Bool true)]) role +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) = Http.guild_role_remove role.guild_id role.id - let disallow_mention role = - edit_role ~body:(`Assoc [("mentionable", `Bool false)]) role +let disallow_mention role = + edit_role ~body:(`Assoc [("mentionable", `Bool false)]) role - let hoist role = - edit_role ~body:(`Assoc [("hoist", `Bool true)]) 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_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 set_name ~name role = + edit_role ~body:(`Assoc [("name", `String name)]) role - let unhoist role = - edit_role ~body:(`Assoc [("hoist", `Bool false)]) role -end
\ No newline at end of file +let unhoist role = + edit_role ~body:(`Assoc [("hoist", `Bool false)]) role
\ No newline at end of file |