fmt

Author: hhugo

compiler/lib/inline.ml

@@ -257,7 +257,8 @@ let inline closures live_vars outer_optimizable pc (blocks, free_pc) =
                    && Primitive.has_arity prim len
                    && args_equal l args
                 then
-                  Let (x, Prim (Extern "%closure", [ Pc (NativeString prim) ])) :: rem, state
+                  ( Let (x, Prim (Extern "%closure", [ Pc (NativeString prim) ])) :: rem
+                  , state )
                 else i :: rem, state
             | _ -> i :: rem, state)
         | _ -> i :: rem, state)

compiler/lib/pseudo_fs.ml

@@ -85,7 +85,9 @@ let find_cmi paths base =
 
 let instr_of_name_content prim ~name ~content =
   let open Code in
-  Let (Var.fresh (), Prim (Extern prim, [ Pc (NativeString name); Pc (NativeString content) ]))
+  Let
+    ( Var.fresh ()
+    , Prim (Extern prim, [ Pc (NativeString name); Pc (NativeString content) ]) )
 
 let embed_file ~name ~filename =
   instr_of_name_content "caml_create_file_extern" ~name ~content:(Fs.read_file filename)