Improve formatting

ocsigen · Sep 4, 2024 · 756301b · 756301b
1 parent 081c5cd
commit 756301b
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/compiler/lib/eval.ml b/compiler/lib/eval.ml
@@ -353,14 +353,12 @@ let eval_instr info ~target ((x, loc) as i) =
       | None -> [ i ])
   | Let (x, Prim (Extern "caml_sys_const_backend_type", [ _ ])) ->
       let jsoo = Code.Var.fresh () in
-      [ ( Let
-            ( jsoo
-            , Constant
-                (String
-                   (match target with
-                   | `JavaScript -> "js_of_ocaml"
-                   | `Wasm -> "wasm_of_ocaml")) )
-        , noloc )
+      let backend_name =
+        match target with
+        | `JavaScript -> "js_of_ocaml"
+        | `Wasm -> "wasm_of_ocaml"
+      in
+      [ Let (jsoo, Constant (String backend_name)), noloc
       ; Let (x, Block (0, [| jsoo |], NotArray, Immutable)), loc
       ]
   | Let (_, Prim (Extern ("%resume" | "%perform" | "%reperform"), _)) ->