From ef748fc29dfcd019093543876daf0e5b10c356d7 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Mon, 18 Feb 2019 08:20:48 -0700 Subject: Remove a redundant tabulation --- bin/commands.ml | 10 +++++----- 1 file 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)) -- cgit v1.2.3