Long line

lthls · Nov 24, 2023 · b1800be · b1800be
1 parent ec8121b
commit b1800be
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/middle_end/flambda/flambda_iterators.ml b/middle_end/flambda/flambda_iterators.ml
@@ -327,15 +327,16 @@ let map_general ~toplevel f f_named tree =
                 let new_named =
                   aux_named_done_something id lam done_something
                 in
+                let open Value_rec_types in
                 (* See comment in [map_rec_binding_sharing] *)
                 let new_rkind =
                   match (new_named : Flambda.named) with
                   | Symbol _ | Const _ | Allocated_const _->
-                    begin match (rkind : Value_rec_types.recursive_binding_kind) with
+                    begin match rkind with
                     | Constant -> ()
                     | Static | Not_recursive | Class -> done_something := true
                     end;
-                    Value_rec_types.Constant
+                    Constant
                   | Read_mutable _ | Read_symbol_field _ | Set_of_closures _
                   | Project_closure _ | Move_within_set_of_closures _
                   | Project_var _ | Prim _ | Expr _ -> rkind