From 6ef9ca9d942d6d86897223138c7743b91a05c5c3 Mon Sep 17 00:00:00 2001 From: Dmitry Zakharov Date: Wed, 27 Sep 2023 19:45:36 +0300 Subject: [PATCH] Format --- jscomp/frontend/ast_external_process.ml | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/jscomp/frontend/ast_external_process.ml b/jscomp/frontend/ast_external_process.ml index 85f00f04df..82a6000029 100644 --- a/jscomp/frontend/ast_external_process.ml +++ b/jscomp/frontend/ast_external_process.ml @@ -400,7 +400,9 @@ let process_obj (loc : Location.t) (st : external_desc) (prim_name : string) "expect label, optional, or unit here") | Labelled label -> ( let fieldName = - match Ast_attributes.iter_process_bs_string_as param_type.attr with + match + Ast_attributes.iter_process_bs_string_as param_type.attr + with | Some alias -> alias | None -> label in @@ -460,7 +462,9 @@ let process_obj (loc : Location.t) (st : external_desc) (prim_name : string) "%@obj label %s does not support %@unwrap arguments" label) | Optional label -> ( let fieldName = - match Ast_attributes.iter_process_bs_string_as param_type.attr with + match + Ast_attributes.iter_process_bs_string_as param_type.attr + with | Some alias -> alias | None -> label in