Format

Author: DZakh

jscomp/frontend/ast_external_process.ml

@@ -349,12 +349,26 @@ type response = {
   no_inline_cross_module: bool;
 }
 
-let get_maybe_obj_field_alias (attributes) =
-  attributes |> List.find_map (fun (attr: Parsetree.attribute) -> match attr with
-  | ({txt = "as"; _}, PStr [ { pstr_desc = Pstr_eval ({ pexp_desc = Pexp_constant (Pconst_string (alias, _)); _}, _); _ } ]) -> Some(alias)
-  | _ -> None
-  )
-
+let get_maybe_obj_field_alias attributes =
+  attributes
+  |> List.find_map (fun (attr : Parsetree.attribute) ->
+         match attr with
+         | ( {txt = "as"; _},
+             PStr
+               [
+                 {
+                   pstr_desc =
+                     Pstr_eval
+                       ( {
+                           pexp_desc = Pexp_constant (Pconst_string (alias, _));
+                           _;
+                         },
+                         _ );
+                   _;
+                 };
+               ] ) ->
+           Some alias
+         | _ -> None)
 
 let process_obj (loc : Location.t) (st : external_desc) (prim_name : string)
     (arg_types_ty : Ast_core_type.param_type list)
@@ -406,9 +420,10 @@ let process_obj (loc : Location.t) (st : external_desc) (prim_name : string)
                 Location.raise_errorf ~loc
                   "expect label, optional, or unit here")
             | Labelled label -> (
-              let fieldName = match get_maybe_obj_field_alias param_type.attr with
-              | Some(alias) -> alias
-              | None -> label
+              let fieldName =
+                match get_maybe_obj_field_alias param_type.attr with
+                | Some alias -> alias
+                | None -> label
               in
               let obj_arg_type = refine_obj_arg_type ~nolabel:false ty in
               match obj_arg_type with
@@ -465,9 +480,10 @@ let process_obj (loc : Location.t) (st : external_desc) (prim_name : string)
                 Location.raise_errorf ~loc
                   "%@obj label %s does not support %@unwrap arguments" label)
             | Optional label -> (
-              let fieldName = match get_maybe_obj_field_alias param_type.attr with
-              | Some(alias) -> alias
-              | None -> label
+              let fieldName =
+                match get_maybe_obj_field_alias param_type.attr with
+                | Some alias -> alias
+                | None -> label
               in
               let obj_arg_type = get_opt_arg_type ~nolabel:false ty in
               match obj_arg_type with

jscomp/gentype/TranslateStructure.ml

@@ -11,8 +11,7 @@ let rec addAnnotationsToTypes_ ~config ~(expr : Typedtree.expression)
     let aName =
       if aName = "*opt*" then
         match arg_label with
-        | Optional l ->
-          l
+        | Optional l -> l
         | _ -> "" (* should not happen *)
       else aName
     in