Fix indentation using fix-indent.ml

src/command_def.ml

@@ -54,11 +54,11 @@ let shared_params =
          Const.verbosity := verbosity;
          (* Ask question or not, see Const.ask for details *)
          Const.ask := Option.(
-           merge
-             (some_if assume_yes true)
-             !Const.ask
-             ~f:( || )
-         );
+                merge
+                  (some_if assume_yes true)
+                  !Const.ask
+                  ~f:( || )
+              );
          (* Do not use color *)
          Const.no_color := no_color || !Const.no_color;
          (* Use given rc file, preserving lazyness, since Const.rc_file is not
@@ -75,9 +75,9 @@ let shared_params =
          let d = Messages.debug in
          d (sprintf "Verbosity set to %i" !Const.verbosity);
          d (match !Const.ask with
-         | None -> "Assume nothing"
-         | Some false -> "Assume No"
-         | Some true -> "Assume Yes");
+             | None -> "Assume nothing"
+             | Some false -> "Assume No"
+             | Some true -> "Assume Yes");
          d (sprintf "Color %s" (match !Const.no_color with true -> "off" | false -> "on"));
          begin
            match Option.try_with (fun () -> Lazy.force !Const.rc_file) with
@@ -101,8 +101,8 @@ let shared_params =
   <*> flag "-y" no_arg
         ~aliases:["--yes" ; "-yes"]
         ~doc:" Assume yes, never ask anything. \
-        Set OC_YES environment variable to '1' is the same. \
-        Set it to '0' to assume no.
+              Set OC_YES environment variable to '1' is the same. \
+              Set it to '0' to assume no.
         Set it to '-1' to be asked every time."
   (* Flag to set colors *)
   <*> flag "--no-color" no_arg

src/const.ml

@@ -85,9 +85,9 @@ let ask =
        (* XXX Hacking with get_var, using
         * -1 for None, 0 for Some false and 1 for Some true *)
        |> function
-         | unset when unset = ask_unset -> None | 0 -> Some false | 1 -> Some true
-         | _ -> None
-  )
+       | unset when unset = ask_unset -> None | 0 -> Some false | 1 -> Some true
+       | _ -> None
+      )
 ;;
 (* Use do not use colors, 0 -> false, anything -> true *)
 let no_color =

src/remove_command.ml

@@ -68,7 +68,7 @@ let perform ~rc new_list =
 ;;
 
 (* Function which removes a command, after getting confirmation, and then
-  * display the new configuration *)
+ * display the new configuration *)
 let run ~(rc:File_com.t) n_to_remove =
   let actual_list = rc.Settings_t.progs in
   (* Get nth command, default last *)