diff options
| -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)) |