OCaml 5.3 support

robur-coop · May 15, 2024 · a1cfb46 · a1cfb46
1 parent eaa397e
commit a1cfb46
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/miou.ml b/lib/miou.ml
@@ -546,7 +546,7 @@ module Domain = struct
           k (Operation.return trigger)
       | Trigger.Await _ -> k Operation.interrupt
       | Yield -> k Operation.yield
-      | effect -> k (Operation.perform effect)
+      | eff -> k (Operation.perform eff)
     in
     { perform }
 

diff --git a/lib/miou_state.ml b/lib/miou_state.ml
@@ -27,7 +27,7 @@ let handler_continue =
   let open Effect.Shallow in
   let effc :
       type c. c Effect.t -> ((c, 'a) Effect.Shallow.continuation -> 'b) option =
-   fun effect -> Some (effc effect)
+   fun eff -> Some (effc eff)
   in
   { retc; exnc; effc }