reformat…

benchs/pi.ml

@@ -149,7 +149,7 @@ let () =
   Printf.printf "pi=%.6f (pi=%.6f, diff=%.3f)%s\n%!" res Float.pi
     (abs_float (Float.pi -. res))
     (if !time then
-      spf " in %.4fs" elapsed
-    else
-      "");
+       spf " in %.4fs" elapsed
+     else
+       "");
   ()

src/lwt/IO_in.ml

@@ -1,14 +1,13 @@
 open Common_
 
-class type t =
-  object
-    method input : bytes -> int -> int -> int
-    (** Read into the slice. Returns [0] only if the
+class type t = object
+  method input : bytes -> int -> int -> int
+  (** Read into the slice. Returns [0] only if the
         stream is closed. *)
 
-    method close : unit -> unit
-    (** Close the input. Must be idempotent. *)
-  end
+  method close : unit -> unit
+  (** Close the input. Must be idempotent. *)
+end
 
 let create ?(close = ignore) ~input () : t =
   object

src/lwt/IO_out.ml

@@ -1,12 +1,11 @@
 open Common_
 
-class type t =
-  object
-    method output_char : char -> unit
-    method output : bytes -> int -> int -> unit
-    method flush : unit -> unit
-    method close : unit -> unit
-  end
+class type t = object
+  method output_char : char -> unit
+  method output : bytes -> int -> int -> unit
+  method flush : unit -> unit
+  method close : unit -> unit
+end
 
 let create ?(flush = ignore) ?(close = ignore) ~output_char ~output () : t =
   object