diff options
| author | Adelyn Breedlove <[email protected]> | 2019-02-17 22:55:34 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-02-17 22:55:34 -0700 |
| commit | 5b3145ee78855595f4d9b4fe849474f08edd25d2 (patch) | |
| tree | 9c4c019c7f13e60fa5f8a978bc76a40baac4c170 | |
| parent | Fix an issue where routes that don't return rate limit info lock forever (diff) | |
| download | disml-5b3145ee78855595f4d9b4fe849474f08edd25d2.tar.xz disml-5b3145ee78855595f4d9b4fe849474f08edd25d2.zip | |
Clean up role test command
| -rw-r--r-- | bin/commands.ml | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/bin/commands.ml b/bin/commands.ml index a6f74ac..555ca27 100644 --- a/bin/commands.ml +++ b/bin/commands.ml @@ -148,12 +148,12 @@ let role_test (message:Message.t) args = in let add_role member role = Member.add_role ~role member >>| function - | Ok () -> () + | Ok () -> role | Error e -> Error.raise e in let remove_role member role = Member.remove_role ~role member >>| function - | Ok () -> () + | Ok () -> role | Error e -> Error.raise e in let get_member id = match Cache.GuildMap.find cache.guilds id with @@ -167,12 +167,13 @@ let role_test (message:Message.t) args = match message.guild_id with | Some id -> begin try let member = get_member id in - create_role name id >>= (fun role -> - add_role member role >>= (fun () -> remove_role member role) - >>= (fun () -> delete_role role)) >>= (fun () -> - Message.reply message "Role test finished") >>> ignore + create_role name id + >>= add_role member + >>= remove_role member + >>= delete_role + >>= (fun () -> Message.reply message "Role test finished") with - | Member_not_found -> Message.reply message "Error: Member not found" >>> ignore - | exn -> Message.reply message (Printf.sprintf "Error: %s" Error.(of_exn exn |> to_string_hum)) >>> ignore - end + | Member_not_found -> Message.reply message "Error: Member not found" + | exn -> Message.reply message (Printf.sprintf "Error: %s" Error.(of_exn exn |> to_string_hum)) + end >>> ignore | None -> ()
\ No newline at end of file |