From 601cc997c81ae9273003071ee901f727bacb6d58 Mon Sep 17 00:00:00 2001 From: Sudha Parimala Date: Mon, 28 Feb 2022 10:47:19 +0530 Subject: [PATCH 1/2] Effect.eff -> Effect.t --- lib/task.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/task.ml b/lib/task.ml index 847d042..98c8e9d 100644 --- a/lib/task.ml +++ b/lib/task.ml @@ -24,7 +24,7 @@ type 'a promise_state = type 'a promise = 'a promise_state Atomic.t -type _ eff += Wait : 'a promise * task_chan -> 'a eff +type _ t += Wait : 'a promise * task_chan -> 'a t let get_pool_data p = match Atomic.get p with @@ -63,7 +63,7 @@ let await pool promise = let step (type a) (f : a -> unit) (v : a) : unit = try_with f v - { effc = fun (type a) (e : a eff) -> + { effc = fun (type a) (e : a t) -> match e with | Wait (p,c) -> Some (fun (k : (a, _) continuation) -> let rec loop () = From 0d089567cb2bc6f77da7e460568c11fdaf7f4c00 Mon Sep 17 00:00:00 2001 From: Sudha Parimala Date: Mon, 28 Feb 2022 11:28:01 +0530 Subject: [PATCH 2/2] CI: trunk version 5.00.0 -> 5.0.0 --- .github/workflows/main.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml index 350d082..f144e0b 100644 --- a/.github/workflows/main.yml +++ b/.github/workflows/main.yml @@ -15,7 +15,7 @@ jobs: - ubuntu-latest - macos-latest ocaml-compiler: - - 5.00.0+trunk + - 5.0.0+trunk runs-on: ${{ matrix.os }}