2025-07-05 07:06.11: New job: test jonludlam/js_top_worker https://github.com/jonludlam/js_top_worker.git#refs/pull/10/head (015a4f704c4bf365774347b7881ae5ee7bdae7f2) (openbsd-amd64:openbsd-76-amd64-5.3_opam-2.3) Base: openbsd-76-amd64-ocaml-5.3 Opam project build To reproduce locally: git clone --recursive "https://github.com/jonludlam/js_top_worker.git" && cd "js_top_worker" && git fetch origin "refs/pull/10/head" && git reset --hard 015a4f70 cat > Dockerfile <<'END-OF-DOCKERFILE' FROM openbsd-76-amd64-ocaml-5.3 # openbsd-76-amd64-5.3_opam-2.3 USER 1000:1000 ENV CLICOLOR_FORCE="1" ENV OPAMCOLOR="always" RUN doas ln -f /usr/bin/opam-2.3 /usr/bin/opam RUN opam init --reinit -ni RUN uname -rs && opam exec -- ocaml -version && opam --version RUN cd ~/opam-repository && (git cat-file -e 6dea2f93908c01ba6c81b048fe926d48d2309cb8 || git fetch origin master) && git reset -q --hard 6dea2f93908c01ba6c81b048fe926d48d2309cb8 && git log --no-decorate -n1 --oneline && opam update -u COPY --chown=1000:1000 js_top_worker_rpc_def.opam js_top_worker.opam js_top_worker-rpc.opam js_top_worker-client.opam /home/opam/src/./ RUN opam pin add -yn js_top_worker_rpc_def.dev '/home/opam/src/./' && \ opam pin add -yn js_top_worker.dev '/home/opam/src/./' && \ opam pin add -yn js_top_worker-rpc.dev '/home/opam/src/./' && \ opam pin add -yn js_top_worker-client.dev '/home/opam/src/./' RUN echo '(lang dune 3.0)' > '/home/opam/src/./dune-project' ENV DEPS="astring.0.8.5 base-bigarray.base base-bytes.base base-domains.base base-effects.base base-nnp.base base-threads.base base-unix.base base64.3.5.1 brr.0.0.7 cmdliner.1.3.0 cppo.1.8.0 csexp.1.5.2 dune.3.19.1 dune-configurator.3.19.1 gen.1.1 js_of_ocaml.6.1.0 js_of_ocaml-compiler.6.1.0 js_of_ocaml-ppx.6.1.0 js_of_ocaml-toplevel.6.1.0 lwt.5.9.1 menhir.20240715 menhirCST.20240715 menhirLib.20240715 menhirSdk.20240715 ocaml.5.3.0 ocaml-base-compiler.5.3.0 ocaml-compiler.5.3.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocamlbuild.0.16.1 ocamlfind.1.9.8 ocplib-endian.1.2 ppx_derivers.1.2.1 ppx_deriving_rpc.9.0.0 ppxlib.0.35.0 result.1.5 rpclib.9.0.0 rresult.0.7.0 sedlex.3.6 seq.base sexplib0.v0.17.0 stdlib-shims.0.3.0 topkg.1.0.8 xmlm.1.4.0 yojson.3.0.0" ENV CI="true" ENV OCAMLCI="true" RUN opam update --depexts && opam install --cli=2.3 --depext-only -y js_top_worker_rpc_def.dev js_top_worker.dev js_top_worker-rpc.dev js_top_worker-client.dev $DEPS RUN opam install $DEPS COPY --chown=1000:1000 . /home/opam/src RUN cd /home/opam/src && opam exec -- dune build @install @check @runtest && rm -rf _build END-OF-DOCKERFILE docker build . END-REPRO-BLOCK 2025-07-05 07:06.11: Using cache hint "jonludlam/js_top_worker-openbsd-76-amd64-ocaml-5.3-openbsd-76-amd64-5.3_opam-2.3-f7ecc43cca4ccd214ed7aaf38269e35f" 2025-07-05 07:06.11: Using OBuilder spec: ((from openbsd-76-amd64-ocaml-5.3) (comment openbsd-76-amd64-5.3_opam-2.3) (user (uid 1000) (gid 1000)) (env CLICOLOR_FORCE 1) (env OPAMCOLOR always) (run (shell "doas ln -f /usr/bin/opam-2.3 /usr/bin/opam")) (run (shell "opam init --reinit -ni")) (run (shell "uname -rs && opam exec -- ocaml -version && opam --version")) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "cd ~/opam-repository && (git cat-file -e 6dea2f93908c01ba6c81b048fe926d48d2309cb8 || git fetch origin master) && git reset -q --hard 6dea2f93908c01ba6c81b048fe926d48d2309cb8 && git log --no-decorate -n1 --oneline && opam update -u")) (copy (src js_top_worker_rpc_def.opam js_top_worker.opam js_top_worker-rpc.opam js_top_worker-client.opam) (dst /home/opam/src/./)) (run (network host) (shell "opam pin add -yn js_top_worker_rpc_def.dev '/home/opam/src/./' && \ \nopam pin add -yn js_top_worker.dev '/home/opam/src/./' && \ \nopam pin add -yn js_top_worker-rpc.dev '/home/opam/src/./' && \ \nopam pin add -yn js_top_worker-client.dev '/home/opam/src/./'")) (run (network host) (shell "echo '(lang dune 3.0)' > '/home/opam/src/./dune-project'")) (env DEPS "astring.0.8.5 base-bigarray.base base-bytes.base base-domains.base base-effects.base base-nnp.base base-threads.base base-unix.base base64.3.5.1 brr.0.0.7 cmdliner.1.3.0 cppo.1.8.0 csexp.1.5.2 dune.3.19.1 dune-configurator.3.19.1 gen.1.1 js_of_ocaml.6.1.0 js_of_ocaml-compiler.6.1.0 js_of_ocaml-ppx.6.1.0 js_of_ocaml-toplevel.6.1.0 lwt.5.9.1 menhir.20240715 menhirCST.20240715 menhirLib.20240715 menhirSdk.20240715 ocaml.5.3.0 ocaml-base-compiler.5.3.0 ocaml-compiler.5.3.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocamlbuild.0.16.1 ocamlfind.1.9.8 ocplib-endian.1.2 ppx_derivers.1.2.1 ppx_deriving_rpc.9.0.0 ppxlib.0.35.0 result.1.5 rpclib.9.0.0 rresult.0.7.0 sedlex.3.6 seq.base sexplib0.v0.17.0 stdlib-shims.0.3.0 topkg.1.0.8 xmlm.1.4.0 yojson.3.0.0") (env CI true) (env OCAMLCI true) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam update --depexts && opam install --cli=2.3 --depext-only -y js_top_worker_rpc_def.dev js_top_worker.dev js_top_worker-rpc.dev js_top_worker-client.dev $DEPS")) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam install $DEPS")) (copy (src .) (dst /home/opam/src)) (run (shell "cd /home/opam/src && opam exec -- dune build @install @check @runtest && rm -rf _build")) ) 2025-07-05 07:06.11: Waiting for resource in pool OCluster 2025-07-05 12:08.24: Waiting for worker… 2025-07-05 19:06.15: Got resource from pool OCluster Building on oregano All commits already cached HEAD is now at 015a4f7 Try support OCaml 5.2 (from openbsd-76-amd64-ocaml-5.3) 2025-07-05 19:06.16 ---> using "753f998be4709b35e38a93b7272dee818f697255d5b48fadd1c23cb92a82f244" from cache /: (comment openbsd-76-amd64-5.3_opam-2.3) /: (user (uid 1000) (gid 1000)) /: (env CLICOLOR_FORCE 1) /: (env OPAMCOLOR always) /: (run (shell "doas ln -f /usr/bin/opam-2.3 /usr/bin/opam")) 2025-07-05 19:06.16 ---> using "b8621e22ceef6e45a2b70edd0350b6ec56c4cb2588ea75f8c24bf97f9bb8e3c1" from cache /: (run (shell "opam init --reinit -ni")) No configuration file found, using built-in defaults. Checking for available remotes: rsync and local, git. - you won't be able to use mercurial repositories unless you install the hg command on your system. - you won't be able to use darcs repositories unless you install the darcs command on your system. <><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><> [default] synchronised from file:///home/opam/opam-repository 2025-07-05 19:06.16 ---> using "caa4033b0f51d691107e536d025405bc96e59134e192afef776a8bfd43aac5e1" from cache /: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version")) OpenBSD 7.6 The OCaml toplevel, version 5.3.0 2.3.0 2025-07-05 19:06.16 ---> using "7116693f695a70fbcc11fcbf90bc7fd32f30a6c20aabff3b1e1c926faaad9b01" from cache /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "cd ~/opam-repository && (git cat-file -e 6dea2f93908c01ba6c81b048fe926d48d2309cb8 || git fetch origin master) && git reset -q --hard 6dea2f93908c01ba6c81b048fe926d48d2309cb8 && git log --no-decorate -n1 --oneline && opam update -u")) From https://github.com/ocaml/opam-repository * branch master -> FETCH_HEAD f93eb7cb02..6dea2f9390 master -> origin/master 6dea2f9390 Merge pull request #28135 from hhugo/release-js_of_ocaml-6.1.0 <><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><> [default] synchronised from file:///home/opam/opam-repository Everything as up-to-date as possible (run with --verbose to show unavailable upgrades). However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages. Nothing to do. # To update the current shell environment, run: eval $(opam env) 2025-07-05 19:06.16 ---> using "ca0cf37bceb80083fe7c7d72097ba996262fcf9a986887900f414b623cc4e88c" from cache /: (copy (src js_top_worker_rpc_def.opam js_top_worker.opam js_top_worker-rpc.opam js_top_worker-client.opam) (dst /home/opam/src/./)) 2025-07-05 19:06.16 ---> using "e7a6f2a525e66f6b311e6f4e26b96bd1b0519f5dee39869232b9eff837351d62" from cache /: (run (network host) (shell "opam pin add -yn js_top_worker_rpc_def.dev '/home/opam/src/./' && \ \nopam pin add -yn js_top_worker.dev '/home/opam/src/./' && \ \nopam pin add -yn js_top_worker-rpc.dev '/home/opam/src/./' && \ \nopam pin add -yn js_top_worker-client.dev '/home/opam/src/./'")) Package js_top_worker_rpc_def does not exist, create as a NEW package? [y/n] y [js_top_worker_rpc_def.dev] synchronised (file:///home/opam/src) js_top_worker_rpc_def is now pinned to file:///home/opam/src (version dev) Package js_top_worker does not exist, create as a NEW package? [y/n] y [js_top_worker.dev] synchronised (file:///home/opam/src) js_top_worker is now pinned to file:///home/opam/src (version dev) Package js_top_worker-rpc does not exist, create as a NEW package? [y/n] y [js_top_worker-rpc.dev] synchronised (file:///home/opam/src) js_top_worker-rpc is now pinned to file:///home/opam/src (version dev) Package js_top_worker-client does not exist, create as a NEW package? [y/n] y [js_top_worker-client.dev] synchronised (file:///home/opam/src) js_top_worker-client is now pinned to file:///home/opam/src (version dev) 2025-07-05 19:06.16 ---> using "281c61359de92369955f6e41297800fbe3c1da27b9040fe3d72a53a510423545" from cache /: (run (network host) (shell "echo '(lang dune 3.0)' > '/home/opam/src/./dune-project'")) 2025-07-05 19:06.16 ---> using "3d3f10841b2ef8ba1b72b1c974e8616bc58668b276f59feeec433068267e3115" from cache /: (env DEPS "astring.0.8.5 base-bigarray.base base-bytes.base base-domains.base base-effects.base base-nnp.base base-threads.base base-unix.base base64.3.5.1 brr.0.0.7 cmdliner.1.3.0 cppo.1.8.0 csexp.1.5.2 dune.3.19.1 dune-configurator.3.19.1 gen.1.1 js_of_ocaml.6.1.0 js_of_ocaml-compiler.6.1.0 js_of_ocaml-ppx.6.1.0 js_of_ocaml-toplevel.6.1.0 lwt.5.9.1 menhir.20240715 menhirCST.20240715 menhirLib.20240715 menhirSdk.20240715 ocaml.5.3.0 ocaml-base-compiler.5.3.0 ocaml-compiler.5.3.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocamlbuild.0.16.1 ocamlfind.1.9.8 ocplib-endian.1.2 ppx_derivers.1.2.1 ppx_deriving_rpc.9.0.0 ppxlib.0.35.0 result.1.5 rpclib.9.0.0 rresult.0.7.0 sedlex.3.6 seq.base sexplib0.v0.17.0 stdlib-shims.0.3.0 topkg.1.0.8 xmlm.1.4.0 yojson.3.0.0") /: (env CI true) /: (env OCAMLCI true) /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam update --depexts && opam install --cli=2.3 --depext-only -y js_top_worker_rpc_def.dev js_top_worker.dev js_top_worker-rpc.dev js_top_worker-client.dev $DEPS")) [WARNING] Unknown update command for bsd, skipping system update <><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><> [js_top_worker.dev] synchronised (file:///home/opam/src) [js_top_worker-rpc.dev] synchronised (file:///home/opam/src) [js_top_worker-client.dev] synchronised (file:///home/opam/src) [js_top_worker_rpc_def.dev] synchronised (file:///home/opam/src) [NOTE] Package ocaml-options-vanilla is already installed (current version is 1). [NOTE] Package ocaml-config is already installed (current version is 3). [NOTE] Package ocaml-compiler is already installed (current version is 5.3.0). [NOTE] Package ocaml-base-compiler is already installed (current version is 5.3.0). [NOTE] Package ocaml is already installed (current version is 5.3.0). [NOTE] Package base-unix is already installed (current version is base). [NOTE] Package base-threads is already installed (current version is base). [NOTE] Package base-nnp is already installed (current version is base). [NOTE] Package base-effects is already installed (current version is base). [NOTE] Package base-domains is already installed (current version is base). [NOTE] Package base-bigarray is already installed (current version is base). 2025-07-05 19:06.38 ---> saved as "bed40db5d18b335fc15a1ac45a41f378f6579b296fd97fb81ef938f414a73264" /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam install $DEPS")) [NOTE] Package ocaml-options-vanilla is already installed (current version is 1). [NOTE] Package ocaml-config is already installed (current version is 3). [NOTE] Package ocaml-compiler is already installed (current version is 5.3.0). [NOTE] Package ocaml-base-compiler is already installed (current version is 5.3.0). [NOTE] Package ocaml is already installed (current version is 5.3.0). [NOTE] Package base-unix is already installed (current version is base). [NOTE] Package base-threads is already installed (current version is base). [NOTE] Package base-nnp is already installed (current version is base). [NOTE] Package base-effects is already installed (current version is base). [NOTE] Package base-domains is already installed (current version is base). [NOTE] Package base-bigarray is already installed (current version is base). The following actions will be performed: === install 36 packages - install astring 0.8.5 - install base-bytes base - install base64 3.5.1 - install brr 0.0.7 - install cmdliner 1.3.0 - install cppo 1.8.0 - install csexp 1.5.2 - install dune 3.19.1 - install dune-configurator 3.19.1 - install gen 1.1 - install js_of_ocaml 6.1.0 - install js_of_ocaml-compiler 6.1.0 - install js_of_ocaml-ppx 6.1.0 - install js_of_ocaml-toplevel 6.1.0 - install lwt 5.9.1 - install menhir 20240715 - install menhirCST 20240715 - install menhirLib 20240715 - install menhirSdk 20240715 - install ocaml-compiler-libs v0.17.0 - install ocamlbuild 0.16.1 - install ocamlfind 1.9.8 - install ocplib-endian 1.2 - install ppx_derivers 1.2.1 - install ppx_deriving_rpc 9.0.0 - install ppxlib 0.35.0 - install result 1.5 - install rpclib 9.0.0 - install rresult 0.7.0 - install sedlex 3.6 - install seq base - install sexplib0 v0.17.0 - install stdlib-shims 0.3.0 - install topkg 1.0.8 - install xmlm 1.4.0 - install yojson 3.0.0 <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> retrieved base64.3.5.1 (cached) -> retrieved astring.0.8.5 (cached) -> retrieved cmdliner.1.3.0 (cached) -> retrieved csexp.1.5.2 (cached) -> retrieved cppo.1.8.0 (cached) -> retrieved brr.0.0.7 (cached) -> retrieved gen.1.1 (cached) -> retrieved lwt.5.9.1 (cached) -> retrieved menhir.20240715, menhirCST.20240715, menhirLib.20240715, menhirSdk.20240715 (cached) -> retrieved js_of_ocaml.6.1.0, js_of_ocaml-compiler.6.1.0, js_of_ocaml-ppx.6.1.0, js_of_ocaml-toplevel.6.1.0 (cached) -> retrieved ocaml-compiler-libs.v0.17.0 (cached) -> retrieved dune.3.19.1, dune-configurator.3.19.1 (cached) -> retrieved ocamlfind.1.9.8 (cached) -> retrieved ocplib-endian.1.2 (cached) -> retrieved ppx_derivers.1.2.1 (cached) -> retrieved ocamlbuild.0.16.1 (cached) -> retrieved ppxlib.0.35.0 (cached) -> retrieved result.1.5 (cached) -> retrieved ppx_deriving_rpc.9.0.0, rpclib.9.0.0 (cached) -> retrieved seq.base (cached) -> retrieved sedlex.3.6 (cached) -> retrieved sexplib0.v0.17.0 (cached) -> retrieved stdlib-shims.0.3.0 (cached) -> retrieved rresult.0.7.0 (cached) -> retrieved yojson.3.0.0 (cached) -> retrieved xmlm.1.4.0 (cached) -> retrieved topkg.1.0.8 (cached) -> installed cmdliner.1.3.0 -> installed dune.3.19.1 -> installed ocamlbuild.0.16.1 -> installed base64.3.5.1 -> installed cppo.1.8.0 -> installed csexp.1.5.2 -> installed menhirCST.20240715 -> installed dune-configurator.3.19.1 -> installed menhirLib.20240715 -> installed menhirSdk.20240715 -> installed ocaml-compiler-libs.v0.17.0 -> installed menhir.20240715 -> installed ocamlfind.1.9.8 -> installed base-bytes.base -> installed ppx_derivers.1.2.1 -> installed result.1.5 -> installed ocplib-endian.1.2 -> installed seq.base -> installed sexplib0.v0.17.0 -> installed gen.1.1 -> installed lwt.5.9.1 -> installed stdlib-shims.0.3.0 -> installed topkg.1.0.8 -> installed ppxlib.0.35.0 -> installed astring.0.8.5 -> installed rresult.0.7.0 -> installed sedlex.3.6 -> installed xmlm.1.4.0 -> installed yojson.3.0.0 -> installed js_of_ocaml-compiler.6.1.0 -> installed rpclib.9.0.0 -> installed js_of_ocaml.6.1.0 -> installed js_of_ocaml-toplevel.6.1.0 -> installed js_of_ocaml-ppx.6.1.0 -> installed brr.0.0.7 -> installed ppx_deriving_rpc.9.0.0 Done. # To update the current shell environment, run: eval $(opam env) 2025-07-05 19:26.06 ---> saved as "60e5b5b1ab8cdd2e53ee09cd8e57d3b45f9458f5c76d612b3dbe66763987ea33" /: (copy (src .) (dst /home/opam/src)) 2025-07-05 19:27.02 ---> saved as "4f0d10f948a947ca354e84453313af6d37f4c35f4345054c693cbdb9ff1f62ab" /: (run (shell "cd /home/opam/src && opam exec -- dune build @install @check @runtest && rm -rf _build")) (cd _build/default && /home/opam/.opam/5.3.0/bin/ocamlc.opt -w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g -bin-annot -bin-annot-occurrences -I lib/.js_top_worker.objs/byte -I /home/opam/.opam/5.3.0/lib/astring -I /home/opam/.opam/5.3.0/lib/gen -I /home/opam/.opam/5.3.0/lib/js_of_ocaml -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler/dynlink -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler/runtime -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-toplevel -I /home/opam/.opam/5.3.0/lib/menhirLib -I /home/opam/.opam/5.3.0/lib/ocaml/compiler-libs -I /home/opam/.opam/5.3.0/lib/rresult -I /home/opam/.opam/5.3.0/lib/sedlex -I /home/opam/.opam/5.3.0/lib/seq -I /home/opam/.opam/5.3.0/lib/yojson -I idl/.js_top_worker_rpc.objs/byte -intf-suffix .ml -no-alias-deps -opaque -open Js_top_worker -o lib/.js_top_worker.objs/byte/js_top_worker__UTop.cmo -c -impl lib/uTop.pp.ml) File "lib/uTop.ml", line 284, characters 18-26: Error: Unbound value Exp.fun_ (cd _build/default && /home/opam/.opam/5.3.0/bin/ocamlopt.opt -w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g -I lib/.js_top_worker.objs/byte -I lib/.js_top_worker.objs/native -I /home/opam/.opam/5.3.0/lib/astring -I /home/opam/.opam/5.3.0/lib/gen -I /home/opam/.opam/5.3.0/lib/js_of_ocaml -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler/dynlink -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler/runtime -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-toplevel -I /home/opam/.opam/5.3.0/lib/menhirLib -I /home/opam/.opam/5.3.0/lib/ocaml/compiler-libs -I /home/opam/.opam/5.3.0/lib/rresult -I /home/opam/.opam/5.3.0/lib/sedlex -I /home/opam/.opam/5.3.0/lib/seq -I /home/opam/.opam/5.3.0/lib/yojson -I idl/.js_top_worker_rpc.objs/byte -I idl/.js_top_worker_rpc.objs/native -intf-suffix .ml -no-alias-deps -opaque -open Js_top_worker -o lib/.js_top_worker.objs/native/js_top_worker__UTop.cmx -c -impl lib/uTop.pp.ml) File "lib/uTop.ml", line 284, characters 18-26: Error: Unbound value Exp.fun_ File "idl/toplevel_api_gen.ml", line 1, characters 0-0: /usr/local/bin/git --no-pager diff --no-index --color=always -u _build/default/idl/toplevel_api_gen.ml _build/default/idl/toplevel_api_gen.ml.gen diff --git a/_build/default/idl/toplevel_api_gen.ml b/_build/default/idl/toplevel_api_gen.ml.gen index ed4076e..89f774b 100644 --- a/_build/default/idl/toplevel_api_gen.ml +++ b/_build/default/idl/toplevel_api_gen.ml.gen @@ -2,7 +2,8 @@ { tool_name = "ppx_driver"; include_dirs = []; - load_path = []; + hidden_include_dirs = []; + load_path = ([], []); open_modules = []; for_package = None; debug = false; @@ -26,7 +27,7 @@ type highlight = { include struct let _ = fun (_ : highlight) -> () - let rec (highlight_line1 : (_, highlight) Rpc.Types.field) = + let rec highlight_line1 : (_, highlight) Rpc.Types.field = { Rpc.Types.fname = "line1"; Rpc.Types.field = (let open Rpc.Types in Basic Int); @@ -34,9 +35,9 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.line1); - Rpc.Types.fset = (fun v -> fun _s -> { _s with line1 = v }) + Rpc.Types.fset = (fun v _s -> { _s with line1 = v }) } - and (highlight_line2 : (_, highlight) Rpc.Types.field) = + and highlight_line2 : (_, highlight) Rpc.Types.field = { Rpc.Types.fname = "line2"; Rpc.Types.field = (let open Rpc.Types in Basic Int); @@ -44,9 +45,9 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.line2); - Rpc.Types.fset = (fun v -> fun _s -> { _s with line2 = v }) + Rpc.Types.fset = (fun v _s -> { _s with line2 = v }) } - and (highlight_col1 : (_, highlight) Rpc.Types.field) = + and highlight_col1 : (_, highlight) Rpc.Types.field = { Rpc.Types.fname = "col1"; Rpc.Types.field = (let open Rpc.Types in Basic Int); @@ -54,9 +55,9 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.col1); - Rpc.Types.fset = (fun v -> fun _s -> { _s with col1 = v }) + Rpc.Types.fset = (fun v _s -> { _s with col1 = v }) } - and (highlight_col2 : (_, highlight) Rpc.Types.field) = + and highlight_col2 : (_, highlight) Rpc.Types.field = { Rpc.Types.fname = "col2"; Rpc.Types.field = (let open Rpc.Types in Basic Int); @@ -64,7 +65,7 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.col2); - Rpc.Types.fset = (fun v -> fun _s -> { _s with col2 = v }) + Rpc.Types.fset = (fun v _s -> { _s with col2 = v }) } and typ_of_highlight = Rpc.Types.Struct @@ -127,7 +128,7 @@ type exec_result = include struct let _ = fun (_ : exec_result) -> () - let rec (exec_result_stdout : (_, exec_result) Rpc.Types.field) = + let rec exec_result_stdout : (_, exec_result) Rpc.Types.field = { Rpc.Types.fname = "stdout"; Rpc.Types.field = @@ -136,9 +137,9 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.stdout); - Rpc.Types.fset = (fun v -> fun _s -> { _s with stdout = v }) + Rpc.Types.fset = (fun v _s -> { _s with stdout = v }) } - and (exec_result_stderr : (_, exec_result) Rpc.Types.field) = + and exec_result_stderr : (_, exec_result) Rpc.Types.field = { Rpc.Types.fname = "stderr"; Rpc.Types.field = @@ -147,9 +148,9 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.stderr); - Rpc.Types.fset = (fun v -> fun _s -> { _s with stderr = v }) + Rpc.Types.fset = (fun v _s -> { _s with stderr = v }) } - and (exec_result_sharp_ppf : (_, exec_result) Rpc.Types.field) = + and exec_result_sharp_ppf : (_, exec_result) Rpc.Types.field = { Rpc.Types.fname = "sharp_ppf"; Rpc.Types.field = @@ -158,9 +159,9 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.sharp_ppf); - Rpc.Types.fset = (fun v -> fun _s -> { _s with sharp_ppf = v }) + Rpc.Types.fset = (fun v _s -> { _s with sharp_ppf = v }) } - and (exec_result_caml_ppf : (_, exec_result) Rpc.Types.field) = + and exec_result_caml_ppf : (_, exec_result) Rpc.Types.field = { Rpc.Types.fname = "caml_ppf"; Rpc.Types.field = @@ -169,9 +170,9 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.caml_ppf); - Rpc.Types.fset = (fun v -> fun _s -> { _s with caml_ppf = v }) + Rpc.Types.fset = (fun v _s -> { _s with caml_ppf = v }) } - and (exec_result_highlight : (_, exec_result) Rpc.Types.field) = + and exec_result_highlight : (_, exec_result) Rpc.Types.field = { Rpc.Types.fname = "highlight"; Rpc.Types.field = (Rpc.Types.Option typ_of_highlight); @@ -179,7 +180,7 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.highlight); - Rpc.Types.fset = (fun v -> fun _s -> { _s with highlight = v }) + Rpc.Types.fset = (fun v _s -> { _s with highlight = v }) } and typ_of_exec_result = Rpc.Types.Struct @@ -257,7 +258,7 @@ type completion_result = include struct let _ = fun (_ : completion_result) -> () - let rec (completion_result_n : (_, completion_result) Rpc.Types.field) = + let rec completion_result_n : (_, completion_result) Rpc.Types.field = { Rpc.Types.fname = "n"; Rpc.Types.field = (let open Rpc.Types in Basic Int); @@ -267,10 +268,10 @@ include "inserted"]; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.n); - Rpc.Types.fset = (fun v -> fun _s -> { _s with n = v }) + Rpc.Types.fset = (fun v _s -> { _s with n = v }) } - and (completion_result_completions : - (_, completion_result) Rpc.Types.field) = + and completion_result_completions : + (_, completion_result) Rpc.Types.field = { Rpc.Types.fname = "completions"; Rpc.Types.field = @@ -279,7 +280,7 @@ include Rpc.Types.fdescription = ["The list of possible completions"]; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.completions); - Rpc.Types.fset = (fun v -> fun _s -> { _s with completions = v }) + Rpc.Types.fset = (fun v _s -> { _s with completions = v }) } and typ_of_completion_result = Rpc.Types.Struct @@ -325,7 +326,7 @@ type cma = include struct let _ = fun (_ : cma) -> () - let rec (cma_url : (_, cma) Rpc.Types.field) = + let rec cma_url : (_, cma) Rpc.Types.field = { Rpc.Types.fname = "url"; Rpc.Types.field = (let open Rpc.Types in Basic String); @@ -333,9 +334,9 @@ include Rpc.Types.fdescription = ["URL where the cma is available"]; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.url); - Rpc.Types.fset = (fun v -> fun _s -> { _s with url = v }) + Rpc.Types.fset = (fun v _s -> { _s with url = v }) } - and (cma_fn : (_, cma) Rpc.Types.field) = + and cma_fn : (_, cma) Rpc.Types.field = { Rpc.Types.fname = "fn"; Rpc.Types.field = (let open Rpc.Types in Basic String); @@ -343,7 +344,7 @@ include Rpc.Types.fdescription = ["Name of the 'wrapping' function"]; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.fn); - Rpc.Types.fset = (fun v -> fun _s -> { _s with fn = v }) + Rpc.Types.fset = (fun v _s -> { _s with fn = v }) } and typ_of_cma = Rpc.Types.Struct @@ -382,7 +383,7 @@ type init_libs = { include struct let _ = fun (_ : init_libs) -> () - let rec (init_libs_cmi_urls : (_, init_libs) Rpc.Types.field) = + let rec init_libs_cmi_urls : (_, init_libs) Rpc.Types.field = { Rpc.Types.fname = "cmi_urls"; Rpc.Types.field = @@ -391,9 +392,9 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.cmi_urls); - Rpc.Types.fset = (fun v -> fun _s -> { _s with cmi_urls = v }) + Rpc.Types.fset = (fun v _s -> { _s with cmi_urls = v }) } - and (init_libs_cmas : (_, init_libs) Rpc.Types.field) = + and init_libs_cmas : (_, init_libs) Rpc.Types.field = { Rpc.Types.fname = "cmas"; Rpc.Types.field = (Rpc.Types.List typ_of_cma); @@ -401,7 +402,7 @@ include Rpc.Types.fdescription = []; Rpc.Types.fversion = None; Rpc.Types.fget = (fun _r -> _r.cmas); - Rpc.Types.fset = (fun v -> fun _s -> { _s with cmas = v }) + Rpc.Types.fset = (fun v _s -> { _s with cmas = v }) } and typ_of_init_libs = Rpc.Types.Struct @@ -464,17 +465,15 @@ include Rpc.Types.vdefault = None; Rpc.Types.vversion = None; Rpc.Types.vconstructor = - (fun s' -> - fun t -> - let s = String.lowercase_ascii s' in - match s with - | "internalerror" -> - Rresult.R.bind - (t.tget (let open Rpc.Types in Basic String)) - (function | a0 -> Rresult.R.ok (InternalError a0)) - | _ -> - Rresult.R.error_msg - (Printf.sprintf "Unknown tag '%s'" s)) + (fun s' t -> + let s = String.lowercase_ascii s' in + match s with + | "internalerror" -> + Rresult.R.bind + (t.tget (let open Rpc.Types in Basic String)) + (function | a0 -> Rresult.R.ok (InternalError a0)) + | _ -> + Rresult.R.error_msg (Printf.sprintf "Unknown tag '%s'" s)) } : err Rpc.Types.variant) and err = { (cd _build/default && /home/opam/.opam/5.3.0/bin/ocamlc.opt -w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g -bin-annot -bin-annot-occurrences -I lib/.js_top_worker.objs/byte -I /home/opam/.opam/5.3.0/lib/astring -I /home/opam/.opam/5.3.0/lib/gen -I /home/opam/.opam/5.3.0/lib/js_of_ocaml -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler/dynlink -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-compiler/runtime -I /home/opam/.opam/5.3.0/lib/js_of_ocaml-toplevel -I /home/opam/.opam/5.3.0/lib/menhirLib -I /home/opam/.opam/5.3.0/lib/ocaml/compiler-libs -I /home/opam/.opam/5.3.0/lib/rresult -I /home/opam/.opam/5.3.0/lib/sedlex -I /home/opam/.opam/5.3.0/lib/seq -I /home/opam/.opam/5.3.0/lib/yojson -I idl/.js_top_worker_rpc.objs/byte -no-alias-deps -opaque -open Js_top_worker -o lib/.js_top_worker.objs/byte/js_top_worker__Worker.cmo -c -impl lib/worker.pp.ml) File "lib/worker.cppo.ml", line 351, characters 44-57: Error: This variant expression is expected to have type bool There is no constructor Mark_positive within type bool "cd /home/opam/src && opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1 2025-07-05 19:28.03: Job failed: Failed: Build failed