simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-07 11:45:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

reformat…

Browse source
This commit is contained in:
Simon Cruanes 2024-05-20 16:19:22 -04:00
parent c50798bf96
commit 4c2a9f1602
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
3 changed files with 15 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/lwt/IO_in.ml
View file

@ -1,14 +1,13 @@
open Common_
class type t =
object
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
end
let create ?(close = ignore) ~input () : t =
object

5
src/lwt/IO_out.ml
View file

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