From c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Mon, 21 Jan 2019 08:52:33 -0700 Subject: folder restructure --- lib/models/role.ml | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 lib/models/role.ml (limited to 'lib/models/role.ml') diff --git a/lib/models/role.ml b/lib/models/role.ml deleted file mode 100644 index ee6bb0a..0000000 --- a/lib/models/role.ml +++ /dev/null @@ -1,23 +0,0 @@ -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 -- cgit v1.2.3