Check and fix indentation of fix-indent.ml script

fix-indent.ml

@@ -62,8 +62,8 @@ let list_mlfiles ?(follow_symlinks=true) path =
     String.split ~on:'.' file
     |> List.last
     |> function
-        | None -> false
-        | Some ext -> ext = "ml"
+    | None -> false
+    | Some ext -> ext = "ml"
   in
   let is_ignored file =
     List.find ignored (fun to_ignore -> to_ignore = file)
@@ -75,7 +75,7 @@ let list_mlfiles ?(follow_symlinks=true) path =
     if Sys.is_file_exn ~follow_symlinks s
     then [s]
     else Sys.ls_dir s |> List.map ~f:(fun sub -> ls_rec (s ^/ sub))
-        |> List.concat
+         |> List.concat
   in
   List.filter (ls_rec path)
     ~f:(fun file -> not (is_ignored file) && is_dotml file)
@@ -88,8 +88,9 @@ let ocp_indent file =
   |> Sys.command
   |> function
   | 0 -> printf "File: '%s' ok\n" file
-  | error -> printf "Error with file: '%s'; code: %i\n%!" file error;
-      exit_ocp_indent_error ()
+  | error ->
+    printf "Error with file: '%s'; code: %i\n%!" file error;
+    exit_ocp_indent_error ()
 ;;
 
 let () =