format

ocaml-flambda · Jun 25, 2024 · 4d93861 · 4d93861
1 parent 80ba68a
commit 4d93861
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/middle_end/flambda2/terms/zero_alloc_attribute.ml b/middle_end/flambda2/terms/zero_alloc_attribute.ml
@@ -39,10 +39,9 @@ let from_lambda : Lambda.zero_alloc_attribute -> t =
  fun a ->
   match a with
   | Default_zero_alloc -> Default_check
-  | Assume { strict; never_returns_normally; never_raises; loc; } ->
+  | Assume { strict; never_returns_normally; never_raises; loc } ->
     Assume { strict; never_returns_normally; never_raises; loc }
-  | Check { strict; loc; } ->
-    Check { strict; loc }
+  | Check { strict; loc } -> Check { strict; loc }
 
 let equal x y =
   match x, y with