Misc: Bump ocamlformat from 0.27.0 to 0.28.1 (#2119)

Signed-off-by: Sora Morimoto <[email protected]>

Author: smorimoto

.ocamlformat

@@ -11,5 +11,5 @@ dock-collection-brackets=false
 margin=90
 module-item-spacing=sparse
 parse-docstrings=false
-version=0.27.0
-ocaml-version=4.08.0
+version=0.28.1
+ocaml-version=4.13.0

benchmarks/common.ml

@@ -228,10 +228,10 @@ end = struct
     Sys.readdir dir
     |> Array.to_list
     |> List.filter ~f:(fun nm ->
-           let open Unix in
-           match stat (dir ^ "/" ^ nm) with
-           | { st_kind = S_REG | S_LNK; _ } -> true
-           | _ -> false)
+        let open Unix in
+        match stat (dir ^ "/" ^ nm) with
+        | { st_kind = S_REG | S_LNK; _ } -> true
+        | _ -> false)
     |> (if spec.ext = ""
         then fun x -> x
         else

benchmarks/run.ml

@@ -229,14 +229,13 @@ let _ =
     | reports ->
         List.map reports ~f:read_report_config
         |> List.concat_map ~f:(fun l ->
-               List.concat_map l ~f:(fun l ->
-                   List.concat_map l ~f:(function
-                     | None -> []
-                     | Some (p1, p2, _measure, _) -> (
-                         match String.split_on_char ~sep:'/' p1 with
-                         | [ "results"; "times"; _host; interpreter ] ->
-                             [ interpreter, p2 ]
-                         | _ -> []))))
+            List.concat_map l ~f:(fun l ->
+                List.concat_map l ~f:(function
+                  | None -> []
+                  | Some (p1, p2, _measure, _) -> (
+                      match String.split_on_char ~sep:'/' p1 with
+                      | [ "results"; "times"; _host; interpreter ] -> [ interpreter, p2 ]
+                      | _ -> []))))
         |> List.sort_uniq ~cmp:compare
         |> fun required ->
         true, fun (interp, suite) -> List.mem (interp, Spec.name suite) ~set:required

compiler/bin-js_of_ocaml/check_runtime.ml

@@ -23,9 +23,9 @@ open Js_of_ocaml_compiler
 let group_by_snd l =
   l
   |> List.sort_uniq ~cmp:(fun (n1, l1) (n2, l2) ->
-         match List.compare ~cmp:String.compare l1 l2 with
-         | 0 -> String.compare n1 n2
-         | c -> c)
+      match List.compare ~cmp:String.compare l1 l2 with
+      | 0 -> String.compare n1 n2
+      | c -> c)
   |> List.group ~f:(fun (_, g1) (_, g2) -> List.equal ~eq:String.equal g1 g2)
 
 let print_groups output l =
@@ -131,10 +131,10 @@ let f (runtime_files, bytecode, target_env) =
   let extra =
     extra
     |> List.map ~f:(fun name ->
-           ( (name ^ if Linker.deprecated ~name then " (deprecated)" else "")
-           , match Linker.origin ~name with
-             | None -> []
-             | Some x -> [ x ] ))
+        ( (name ^ if Linker.deprecated ~name then " (deprecated)" else "")
+        , match Linker.origin ~name with
+          | None -> []
+          | Some x -> [ x ] ))
     |> group_by_snd
   in
 

compiler/bin-js_of_ocaml/js_of_ocaml.ml

@@ -30,8 +30,8 @@ let () =
       String.length x > 0
       && (not (Char.equal x.[0] '-'))
       && String.for_all x ~f:(function
-           | 'a' .. 'z' | 'A' .. 'Z' | '-' -> true
-           | _ -> false)
+        | 'a' .. 'z' | 'A' .. 'Z' | '-' -> true
+        | _ -> false)
     in
     match Array.to_list argv with
     | exe :: maybe_command :: rest ->

compiler/bin-wasm_of_ocaml/compile.ml

@@ -342,7 +342,7 @@ let merge_shape a b =
 let sexp_of_shapes s =
   StringMap.bindings s
   |> List.map ~f:(fun (name, shape) ->
-         Sexp.List [ Atom name; Atom (Shape.to_string shape) ])
+      Sexp.List [ Atom name; Atom (Shape.to_string shape) ])
 
 let string_of_shapes s = Sexp.List (sexp_of_shapes s) |> Sexp.to_string
 
@@ -476,7 +476,7 @@ let run
        tmp_wasm_file
        |> (fun file -> Link.Wasm_binary.read_imports ~file)
        |> List.filter_map ~f:(fun { Link.Wasm_binary.module_; name; _ } ->
-              if String.equal module_ "js" then Some name else None)
+           if String.equal module_ "js" then Some name else None)
        |> StringSet.of_list
      in
      let js_runtime = build_js_runtime ~primitives () in

compiler/bin-wasm_of_ocaml/wasm_of_ocaml.ml

@@ -28,8 +28,8 @@ let () =
       String.length x > 0
       && (not (Char.equal x.[0] '-'))
       && String.for_all x ~f:(function
-           | 'a' .. 'z' | 'A' .. 'Z' | '-' -> true
-           | _ -> false)
+        | 'a' .. 'z' | 'A' .. 'Z' | '-' -> true
+        | _ -> false)
     in
     match Array.to_list argv with
     | exe :: maybe_command :: rest ->

compiler/lib-wasm/link.ml

@@ -357,25 +357,23 @@ let info_from_sexp info =
     |> member "units"
     |> Option.value ~default:[]
     |> List.map ~f:(fun u ->
-           let unit_info = u |> Unit_info.from_sexp in
-           let unit_name =
-             u |> member "name" |> Option.value ~default:[] |> single string
-           in
-           let fragments =
-             u
-             |> member "fragments"
-             |> Option.map ~f:(single string)
-             |> Option.map ~f:(fun s -> Marshal.from_string (Base64.decode_exn s) 0)
-             |> Option.value ~default:[]
-             (*
+        let unit_info = u |> Unit_info.from_sexp in
+        let unit_name = u |> member "name" |> Option.value ~default:[] |> single string in
+        let fragments =
+          u
+          |> member "fragments"
+          |> Option.map ~f:(single string)
+          |> Option.map ~f:(fun s -> Marshal.from_string (Base64.decode_exn s) 0)
+          |> Option.value ~default:[]
+          (*
                            |> to_option to_assoc
                            |> Option.value ~default:[]
                            |> List.map ~f:(fun (nm, e) ->
                                   ( nm
                                   , let lex = Parse_js.Lexer.of_string (to_string e) in
                                     Parse_js.parse_expr lex ))*)
-           in
-           { unit_name; unit_info; fragments })
+        in
+        { unit_name; unit_info; fragments })
   in
   build_info, predefined_exceptions, unit_data
 
@@ -591,15 +589,15 @@ let link_to_directory ~files_to_link ~files ~enable_source_maps ~dir =
   let lst =
     List.tl files
     |> List.map ~f:(fun (file, _) ->
-           if StringSet.mem file files_to_link
-           then (
-             let z = Zip.open_in file in
-             let name' = file |> Filename.basename |> Filename.remove_extension in
-             let ((name', _) as res) = process_file z ~name:"code" ~name' in
-             if enable_source_maps then extract_source_map ~dir ~name:name' z;
-             Zip.close_in z;
-             Some res)
-           else None)
+        if StringSet.mem file files_to_link
+        then (
+          let z = Zip.open_in file in
+          let name' = file |> Filename.basename |> Filename.remove_extension in
+          let ((name', _) as res) = process_file z ~name:"code" ~name' in
+          if enable_source_maps then extract_source_map ~dir ~name:name' z;
+          Zip.close_in z;
+          Some res)
+        else None)
     |> List.filter_map ~f:(fun x -> x)
   in
   runtime :: prelude :: List.map ~f:fst lst, (runtime_intf, List.map ~f:snd lst)
@@ -653,10 +651,10 @@ let load_information files =
       ( predefined_exceptions
       , (runtime, (build_info, []))
         :: List.map other_files ~f:(fun file ->
-               let build_info, _predefined_exceptions, unit_data =
-                 Zip.with_open_in file read_info
-               in
-               file, (build_info, unit_data)) )
+            let build_info, _predefined_exceptions, unit_data =
+              Zip.with_open_in file read_info
+            in
+            file, (build_info, unit_data)) )
 
 let remove_directory path =
   try
@@ -801,8 +799,7 @@ let link ~output_file ~linkall ~enable_source_maps ~files =
   let generated_js =
     List.concat
     @@ List.map files ~f:(fun (_, (_, units)) ->
-           List.map units ~f:(fun { unit_name; fragments; _ } ->
-               Some unit_name, fragments))
+        List.map units ~f:(fun { unit_name; fragments; _ } -> Some unit_name, fragments))
   in
   let runtime_args =
     let js =

compiler/lib-wasm/wasm_link.ml

@@ -540,9 +540,9 @@ module Read = struct
         { final = f2; supertype = s2; typ = t2 } =
       Bool.(f1 = f2)
       && (match s1, s2 with
-         | Some _, None | None, Some _ -> false
-         | None, None -> true
-         | Some i1, Some i2 -> i1 = i2)
+        | Some _, None | None, Some _ -> false
+        | None, None -> true
+        | Some i1, Some i2 -> i1 = i2)
       && comptype_eq t1 t2
 
     let equal t1 t2 =

compiler/lib-wasm/wat_output.ml

@@ -196,12 +196,13 @@ let value_type_list st name tl =
 
 let func_type st ?param_names { params; result } =
   (match param_names with
-  | None -> value_type_list st "param" params
-  | Some names ->
-      List.map2
-        ~f:(fun i typ -> List [ Atom "param"; index st.local_names i; value_type st typ ])
-        names
-        params)
+    | None -> value_type_list st "param" params
+    | Some names ->
+        List.map2
+          ~f:(fun i typ ->
+            List [ Atom "param"; index st.local_names i; value_type st typ ])
+          names
+          params)
   @ value_type_list st "result" result
 
 let storage_type st typ =
@@ -234,10 +235,10 @@ let export name =
 
 let type_prefix op nm =
   (match op with
-  | I32 _ -> "i32."
-  | I64 _ -> "i64."
-  | F32 _ -> "f32."
-  | F64 _ -> "f64.")
+    | I32 _ -> "i32."
+    | I64 _ -> "i64."
+    | F32 _ -> "f32."
+    | F64 _ -> "f64.")
   ^ nm
 
 let signage op (s : Wasm_ast.signage) =