update ocamlformat

.ocamlformat

@@ -1,3 +1,4 @@
 profile = default
 let-binding-spacing=double-semicolon
+break-infix-before-func=true
 version = 0.26.1

src/bindings/dune

@@ -3,6 +3,6 @@
 (library
  (name bindings)
  (modes melange)
- (libraries  melange.js melange.node reason-react)
+ (libraries melange.js melange.node reason-react)
  (preprocess
   (pps melange.ppx reason-react-ppx)))

src/bindings/promise/promise.mli

@@ -27,7 +27,7 @@ val bind : 'value t -> ('value -> 'next_value t) -> 'next_value t
 val tap : ('value -> unit) -> 'value t -> 'value t
 (** [tap fn promise] applies [fn] to the result of [promise], returning the original promise. *)
 
-val perform : ('value -> unit) -> 'value t -> unit 
+val perform : ('value -> unit) -> 'value t -> unit
 (** [perform fn promise] applies [fn] to the result of [promise], returning [unit]. *)
 
 (** Module containing syntax extensions for promises. *)

src/bindings/promise/promise_result.mli

@@ -40,8 +40,7 @@ val tap :
   (('value, 'error) result -> unit) -> ('value, 'error) t -> ('value, 'error) t
 (** [tap fn promise_result] applies [fn] to the result of [promise_result] and returns the original promise. *)
 
-val perform :
-  (('value, 'error) result -> unit) -> ('value, 'error) t -> unit 
+val perform : (('value, 'error) result -> unit) -> ('value, 'error) t -> unit
 (** [perform fn promise_result] applies [fn] to the result of [promise_result] and returns unit. *)
 
 val is_ok : ('value, 'error) t -> bool Promise.t

src/core/configuration.ml

@@ -15,7 +15,8 @@ let syntax_preference_to_string = function
 ;;
 
 let syntax_preference_of_string str =
-  str |> String.lowercase_ascii |> function
+  str |> String.lowercase_ascii
+  |> function
   | "ocaml" -> `OCaml
   | "reasonml" -> `ReasonML
   | _ -> failwith "Invalid syntax preference"

src/ocaml_install/ocaml_install.re

@@ -0,0 +1 @@
+