Amend comment: spaces

src/default.ml

@@ -39,12 +39,12 @@ open Core.Std;;
 (* The module containing the step runned when the program is
  * used without argument *)
 
+(* cmd_number is the number of the command the user wants
+ * to execute *)
 let run ~rc:rc_content ~tmp:tmp_content cmd_number =
-  (* cmd_number is the number of the command the user wants
-   * to execute *)
   match cmd_number with
     | None -> begin
-        (* Execute each item (one by one)in config file *)
+        (* Execute each item (one by one) in config file *)
         let open Settings_t in (* This prevent warning 40 for ~cmd_list:rc_content.progs *)
           let cmd_to_exec = Exec_cmd.what_next ~cmd_list:rc_content.progs ~tmp:tmp_content in
             (* TODO Use display option in rc file *)

src/oclaunch.ml

@@ -61,7 +61,7 @@ let commands =
     (* TODO if number is out of the mist, return error message *)
     Command.Spec.(empty
     +> flag ~aliases:["-reset-tmp" ; "-r"] "--reset-tmp" no_arg
-                    ~doc:"Reinitialises launches by deleting temporal file."
+                    ~doc:" Reinitialises launches by deleting temporal file."
     +> anon (maybe ("Command number" %: int)))
     (fun reset_tmp num_cmd () ->
        match reset_tmp with