diff options
| author | Adelyn Breelove <[email protected]> | 2019-02-18 08:20:48 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-02-18 08:20:48 -0700 |
| commit | ef748fc29dfcd019093543876daf0e5b10c356d7 (patch) | |
| tree | 56ad415ab0a97df49b118cb81c62161d54c8094e | |
| parent | Clean up role test command (diff) | |
| download | disml-ef748fc29dfcd019093543876daf0e5b10c356d7.tar.xz disml-ef748fc29dfcd019093543876daf0e5b10c356d7.zip | |
Remove a redundant tabulation
| -rw-r--r-- | bin/commands.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/commands.ml b/bin/commands.ml index 555ca27..b2b0115 100644 --- a/bin/commands.ml +++ b/bin/commands.ml @@ -167,11 +167,11 @@ 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 - >>= add_role member - >>= remove_role member - >>= delete_role - >>= (fun () -> Message.reply message "Role test finished") + 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" | exn -> Message.reply message (Printf.sprintf "Error: %s" Error.(of_exn exn |> to_string_hum)) |