Run fix-indent.ml script

 + The script is not working well, since it transformed symlinks
 into files, didn't ignore, etc. Solved with git checkout HEAD
 -- files

src/command_def.ml

@@ -293,10 +293,10 @@ let import =
            ~doc:"file Write imported file to [FILE], sexp format (default: default-rc-file.scm)"
     )
     (fun _ from to_file () ->
-      let open Option in
-      let from = value ~default:Const.rc_file_old (from >>| Lazy.return) in
-      let to_file = value ~default:!Const.rc_file (to_file >>| Lazy.return) in
-      Rc.import ~from ~to_file
+       let open Option in
+       let from = value ~default:Const.rc_file_old (from >>| Lazy.return) in
+       let to_file = value ~default:!Const.rc_file (to_file >>| Lazy.return) in
+       Rc.import ~from ~to_file
     )
 ;;
 

src/default.ml

@@ -72,7 +72,7 @@ let run ~(rc:Rc.t) cmd_number =
       |> function
       | None -> Messages.warning "Your number is out of bound"
       | Some entry ->
-          let cmd_to_exec = entry#command in
-          Exec_cmd.execute cmd_to_exec;
+        let cmd_to_exec = entry#command in
+        Exec_cmd.execute cmd_to_exec;
     end
 ;;

src/rc.ml

@@ -110,7 +110,7 @@ let create_basic name =
   sprintf "Initializing empty configuration file in %s.\n\
            You may import your rc file from an older version with\n\
            `oclaunch import`\
-  " name
+          " name
   |> Messages.warning;
   Messages.tips welcome_msg;
   Licencing.print ~cecill:false;
@@ -170,7 +170,7 @@ class entry ?(tags=[]) command = object (self:'self)
   method equal (other:'self) =
     (String.equal self#command other#command)
     && (List.equal self#tags other#tags
-      ~equal:(fun atag btag -> atag#equal btag))
+          ~equal:(fun atag btag -> atag#equal btag))
 end;;
 
 (* XXX Pseudo comparator *)

src/test/edit_t.ml

@@ -57,9 +57,9 @@ let ll_data = [
 
 let llt_l =
   List.map ll_data ~f:(fun (t, s, name) -> (
-    let t = List.map ~f:Tools.to_entry t in
-    let s = List.map ~f:Tools.to_entry s in
-    (epur t s), name))
+           let t = List.map ~f:Tools.to_entry t in
+           let s = List.map ~f:Tools.to_entry s in
+           (epur t s), name))
   |> List.map ~f:(fun ( f,name ) -> (name, `Quick, f))
 ;;
 (* =========================================== *)
@@ -128,8 +128,8 @@ let gm_data = [
 
 let gmt_l =
   List.map gm_data ~f:(fun (t, s, name) ->
-    let t = List.map ~f:Tools.to_entry t in
-    ( (gen_mod t s), name))
+         let t = List.map ~f:Tools.to_entry t in
+         ( (gen_mod t s), name))
   |> List.map ~f:(fun ( f,name ) -> (name, `Quick, f))
 ;;
 (* =========================================== *)

src/test/unify_t.ml

@@ -110,9 +110,9 @@ let make_uniq_data = [
 
 let t_set_fast =
   List.map make_uniq_data ~f:(fun (t, s, name) -> (
-    let t = List.map ~f:Tools.to_entry t in
-    let s = List.map ~f:Tools.to_entry s in
-    (make_uniq t s), name))
+           let t = List.map ~f:Tools.to_entry t in
+           let s = List.map ~f:Tools.to_entry s in
+           (make_uniq t s), name))
   |> List.map ~f:(fun ( f,name ) -> (name, `Quick, f))
 ;;
 
@@ -121,9 +121,9 @@ let t_set_long =
     ((big_pack ~message:"Much longer than real use case list of " 1_000)
      @ (big_pack ~message:"Crazy long list of " 9_999))
     ~f:(fun (t, s, name) ->
-    let t = List.map ~f:Tools.to_entry t in
-    let s = List.map ~f:Tools.to_entry s in
-      ( (make_uniq t s), name))
+         let t = List.map ~f:Tools.to_entry t in
+         let s = List.map ~f:Tools.to_entry s in
+         ( (make_uniq t s), name))
   |> List.map ~f:(fun ( f,name ) -> (name, `Slow, f))
 ;;
 

src/tools.ml

@@ -66,7 +66,7 @@ let spy1_string str =
 let spy1_string_option so =
   so
   |> (function None -> "None"
-      | Some str -> sprintf "Some %s" str)
+             | Some str -> sprintf "Some %s" str)
   |> spy so
 ;;
 let spy1_float f =