Merge pull request #65 from ocaml-multicore/fix-trunk

Fix build on trunk
ocaml-multicore · Mar 1, 2022 · 4ac01e8 · 4ac01e8
2 parents 417bd80 + 0d08956
commit 4ac01e8
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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 }}
 

diff --git 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 () =