Build: Use dune 3.19

.github/workflows/build-wasm_of_ocaml.yml

@@ -97,9 +97,10 @@ jobs:
       - run: opam install conf-pkg-config conf-mingw-w64-gcc-i686 conf-mingw-w64-g++-x86_64
         if: runner.os == 'Windows'
 
-      - name: Pin dune
-        if: runner.os == 'Windows'
-        run: opam pin add -n dune https://github.com/hhugo/dune.git#shorter-path-jsoo
+      # Pin Dune to a version which supports the new --effects flag
+      # (https://github.com/ocaml/dune/pull/11222).
+      - name: Pin Dune
+        run: opam pin add --no-action dune https://github.com/OlivierNicole/dune.git#jsoo-effects
 
       - name: Install dune
         run: opam install dune

compiler/tests-dynlink-js/effects_flags.ml

@@ -3,9 +3,9 @@ let () =
   let effects_flags l =
     match l, major >= 5 with
     | [ "with-effects-double-translation" ], true -> [ "--effects"; "double-translation" ]
-    | [ "with-effects" ], true -> [ "--enable"; "effects" ]
-    | _, true -> [ "--disable"; "effects" ]
-    | _, false -> [ "--disable"; "effects" ]
+    | [ "with-effects" ], true -> [ "--effects"; "cps" ]
+    | _, true -> []
+    | _, false -> []
   in
   match Sys.argv |> Array.to_list |> List.tl with
   | "txt" :: rest -> List.iter print_endline (effects_flags rest)

compiler/tests-jsoo/lib-effects/dune

@@ -4,7 +4,7 @@
  (_
   (js_of_ocaml
    (flags
-    (:standard --enable effects)))))
+    (:standard --effects cps)))))
 
 (library
  (name jsoo_testsuite_effect)

compiler/tests-ocaml/effect-syntax/dune

@@ -4,7 +4,7 @@
  (_
   (js_of_ocaml
    (flags
-    (:standard --enable effects)))))
+    (:standard --effects cps)))))
 
 (tests
  (names

compiler/tests-ocaml/effects/dune

@@ -4,7 +4,7 @@
  (_
   (js_of_ocaml
    (flags
-    (:standard --enable effects)))))
+    (:standard --effects cps)))))
 
 (tests
  (build_if

dune

@@ -9,11 +9,11 @@
   (js_of_ocaml
    (compilation_mode separate)
    (flags
-    (:standard --enable effects)))
+    (:standard --effects cps)))
   (wasm_of_ocaml
    (compilation_mode separate)
    (flags
-    (:standard --enable effects)))
+    (:standard --effects cps)))
   (binaries
    (tools/node_wrapper.exe as node)
    (tools/node_wrapper.exe as node.exe)))

toplevel/examples/lwt_toplevel/effects_flags.ml

@@ -3,8 +3,9 @@ let () =
   let effects_flags l =
     match l, major >= 5 with
     | [ "with-effects-double-translation" ], true -> [ "--effects"; "double-translation" ]
-    | _, true -> [ "--enable"; "effects" ]
-    | _, false -> [ "--disable"; "effects" ]
+    | [ "with-effects" ], true -> [ "--effects"; "cps" ]
+    | _, true -> [ "--effects"; "cps" ]
+    | _, false -> []
   in
   match Sys.argv |> Array.to_list |> List.tl with
   | "txt" :: rest -> List.iter print_endline (effects_flags rest)