File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -142,9 +142,7 @@ let wrap_recursive_component_self_references ~config ~fn_name expr =
142142 })
143143 in
144144 let body_mapper = mapper (shadowed || bindings_shadow_name) in
145- let body =
146- body_mapper.expr body_mapper body
147- in
145+ let body = body_mapper.expr body_mapper body in
148146 {expr with pexp_desc = Pexp_let (rec_flag, bindings, body)}
149147 | Pexp_fun ({default; lhs; rhs} as desc ) ->
150148 (* Optional default expressions are evaluated outside the argument
@@ -157,9 +155,7 @@ let wrap_recursive_component_self_references ~config ~fn_name expr =
157155 let rhs_mapper =
158156 mapper (shadowed || pattern_binds_name fn_name lhs)
159157 in
160- let rhs =
161- rhs_mapper.expr rhs_mapper rhs
162- in
158+ let rhs = rhs_mapper.expr rhs_mapper rhs in
163159 {expr with pexp_desc = Pexp_fun {desc with default; rhs}}
164160 | Pexp_apply ({funct; args} as apply ) when accepts_component funct ->
165161 let funct = ast_mapper.expr ast_mapper funct in
You can’t perform that action at this time.
0 commit comments