mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-06 11:15:38 -05:00
parent
0750e6af41
commit
a4db1e67be
5 changed files with 23 additions and 25 deletions
14
.github/workflows/main.yml
vendored
14
.github/workflows/main.yml
vendored
|
|
@ -18,7 +18,7 @@ jobs:
|
||||||
ocaml-compiler:
|
ocaml-compiler:
|
||||||
- '4.08'
|
- '4.08'
|
||||||
- '4.14'
|
- '4.14'
|
||||||
- '5.1'
|
- '5.2'
|
||||||
|
|
||||||
runs-on: ${{ matrix.os }}
|
runs-on: ${{ matrix.os }}
|
||||||
steps:
|
steps:
|
||||||
|
|
@ -31,14 +31,14 @@ jobs:
|
||||||
allow-prerelease-opam: true
|
allow-prerelease-opam: true
|
||||||
|
|
||||||
- run: opam install -t moonpool moonpool-lwt --deps-only
|
- run: opam install -t moonpool moonpool-lwt --deps-only
|
||||||
if: matrix.ocaml-compiler == '5.1'
|
if: matrix.ocaml-compiler == '5.2'
|
||||||
- run: opam install -t moonpool --deps-only
|
- run: opam install -t moonpool --deps-only
|
||||||
if: matrix.ocaml-compiler != '5.1'
|
if: matrix.ocaml-compiler != '5.2'
|
||||||
- run: opam exec -- dune build @install
|
- run: opam exec -- dune build @install
|
||||||
|
|
||||||
# install some depopts
|
# install some depopts
|
||||||
- run: opam install thread-local-storage trace domain-local-await
|
- run: opam install thread-local-storage trace domain-local-await
|
||||||
if: matrix.ocaml-compiler == '5.1'
|
if: matrix.ocaml-compiler == '5.2'
|
||||||
|
|
||||||
- run: opam exec -- dune build --profile=release --force @install @runtest
|
- run: opam exec -- dune build --profile=release --force @install @runtest
|
||||||
|
|
||||||
|
|
@ -52,7 +52,7 @@ jobs:
|
||||||
- macos-latest
|
- macos-latest
|
||||||
#- windows-latest
|
#- windows-latest
|
||||||
ocaml-compiler:
|
ocaml-compiler:
|
||||||
- '5.1'
|
- '5.2'
|
||||||
runs-on: ${{ matrix.os }}
|
runs-on: ${{ matrix.os }}
|
||||||
steps:
|
steps:
|
||||||
- uses: actions/checkout@main
|
- uses: actions/checkout@main
|
||||||
|
|
@ -74,7 +74,7 @@ jobs:
|
||||||
strategy:
|
strategy:
|
||||||
matrix:
|
matrix:
|
||||||
ocaml-compiler:
|
ocaml-compiler:
|
||||||
- '5.1'
|
- '5.2'
|
||||||
runs-on: 'ubuntu-latest'
|
runs-on: 'ubuntu-latest'
|
||||||
steps:
|
steps:
|
||||||
- uses: actions/checkout@main
|
- uses: actions/checkout@main
|
||||||
|
|
@ -85,6 +85,6 @@ jobs:
|
||||||
dune-cache: true
|
dune-cache: true
|
||||||
allow-prerelease-opam: true
|
allow-prerelease-opam: true
|
||||||
|
|
||||||
- run: opam install ocamlformat.0.24.1
|
- run: opam install ocamlformat.0.26.2
|
||||||
- run: opam exec -- make format-check
|
- run: opam exec -- make format-check
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
version = 0.24.1
|
version = 0.26.2
|
||||||
profile=conventional
|
profile=conventional
|
||||||
margin=80
|
margin=80
|
||||||
if-then-else=k-r
|
if-then-else=k-r
|
||||||
|
|
|
||||||
|
|
@ -1,14 +1,13 @@
|
||||||
open Common_
|
open Common_
|
||||||
|
|
||||||
class type t =
|
class type t = object
|
||||||
object
|
|
||||||
method input : bytes -> int -> int -> int
|
method input : bytes -> int -> int -> int
|
||||||
(** Read into the slice. Returns [0] only if the
|
(** Read into the slice. Returns [0] only if the
|
||||||
stream is closed. *)
|
stream is closed. *)
|
||||||
|
|
||||||
method close : unit -> unit
|
method close : unit -> unit
|
||||||
(** Close the input. Must be idempotent. *)
|
(** Close the input. Must be idempotent. *)
|
||||||
end
|
end
|
||||||
|
|
||||||
let create ?(close = ignore) ~input () : t =
|
let create ?(close = ignore) ~input () : t =
|
||||||
object
|
object
|
||||||
|
|
|
||||||
|
|
@ -1,12 +1,11 @@
|
||||||
open Common_
|
open Common_
|
||||||
|
|
||||||
class type t =
|
class type t = object
|
||||||
object
|
|
||||||
method output_char : char -> unit
|
method output_char : char -> unit
|
||||||
method output : bytes -> int -> int -> unit
|
method output : bytes -> int -> int -> unit
|
||||||
method flush : unit -> unit
|
method flush : unit -> unit
|
||||||
method close : unit -> unit
|
method close : unit -> unit
|
||||||
end
|
end
|
||||||
|
|
||||||
let create ?(flush = ignore) ?(close = ignore) ~output_char ~output () : t =
|
let create ?(flush = ignore) ?(close = ignore) ~output_char ~output () : t =
|
||||||
object
|
object
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue