2024-09-09 09:13.53: New job: test ocaml-ppx/ppxlib https://github.com/ocaml-ppx/ppxlib.git#refs/pull/514/head (d22f931ee2a1e63f53b8191af493e4e7ff63c1c5) (linux-x86_64:fedora-39-4.14_opam-2.2) Base: ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e Opam project build To reproduce locally: git clone --recursive "https://github.com/ocaml-ppx/ppxlib.git" && cd "ppxlib" && git fetch origin "refs/pull/514/head" && git reset --hard d22f931e cat > Dockerfile <<'END-OF-DOCKERFILE' FROM ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e # fedora-39-4.14_opam-2.2 USER 1000:1000 ENV CLICOLOR_FORCE="1" ENV OPAMCOLOR="always" WORKDIR /src RUN sudo dnf install -y findutils RUN sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam RUN opam init --reinit -ni RUN uname -rs && opam exec -- ocaml -version && opam --version WORKDIR /src RUN sudo chown opam /src RUN cd ~/opam-repository && (git cat-file -e b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && git log --no-decorate -n1 --oneline && opam update -u RUN mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/' COPY --chown=1000:1000 ppxlib.opam ppxlib-bench.opam ./ COPY --chown=1000:1000 bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam bench/vendored/ppx_sexp_conv.v0.15.1/ RUN opam pin add -yn ppxlib.dev './' && \ opam pin add -yn ppxlib-bench.dev './' && \ opam pin add -yn ppx_sexp_conv 'bench/vendored/ppx_sexp_conv.v0.15.1/' ENV DEPS="base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2" ENV CI="true" ENV OCAMLCI="true" RUN opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS RUN opam install $DEPS COPY --chown=1000:1000 . /src RUN opam exec -- dune build @install @check @runtest && rm -rf _build END-OF-DOCKERFILE docker build . END-REPRO-BLOCK 2024-09-09 09:13.53: Using cache hint "ocaml-ppx/ppxlib-ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e-fedora-39-4.14_opam-2.2-4f1820867029e02e156b9f528a626911" 2024-09-09 09:13.53: Using OBuilder spec: ((from ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e) (comment fedora-39-4.14_opam-2.2) (user (uid 1000) (gid 1000)) (env CLICOLOR_FORCE 1) (env OPAMCOLOR always) (workdir /src) (run (network host) (shell "sudo dnf install -y findutils")) (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam")) (run (shell "opam init --reinit -ni")) (run (shell "uname -rs && opam exec -- ocaml -version && opam --version")) (workdir /src) (run (shell "sudo chown opam /src")) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "cd ~/opam-repository && (git cat-file -e b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && git log --no-decorate -n1 --oneline && opam update -u")) (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'")) (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./)) (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam) (dst bench/vendored/ppx_sexp_conv.v0.15.1/)) (run (network host) (shell "opam pin add -yn ppxlib.dev './' && \ \nopam pin add -yn ppxlib-bench.dev './' && \ \nopam pin add -yn ppx_sexp_conv 'bench/vendored/ppx_sexp_conv.v0.15.1/'")) (env DEPS "base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2") (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.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS")) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam install $DEPS")) (copy (src .) (dst /src)) (run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build")) ) 2024-09-09 09:13.53: Waiting for resource in pool OCluster 2024-09-09 09:13.53: Waiting for worker… 2024-09-09 09:13.54: Got resource from pool OCluster Building on x86-bm-c18.sw.ocaml.org All commits already cached HEAD is now at d22f931e Add coalesce_arity to Ast_builder and use it in metaquot (from ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e) 2024-09-09 09:15.26 ---> saved as "39e5ddc8fc616b8b4893dbc0062d91989319c294efe60e75830cba3f336be183" /: (comment fedora-39-4.14_opam-2.2) /: (user (uid 1000) (gid 1000)) /: (env CLICOLOR_FORCE 1) /: (env OPAMCOLOR always) /: (workdir /src) /src: (run (network host) (shell "sudo dnf install -y findutils")) Fedora 39 - x86_64 326 kB/s | 29 kB 00:00 Fedora 39 - x86_64 - Updates 86 kB/s | 5.7 kB 00:00 Fedora 39 - x86_64 - Updates 2.1 MB/s | 7.3 MB 00:03 Last metadata expiration check: 0:00:01 ago on Mon Sep 9 09:15:30 2024. Package findutils-1:4.9.0-6.fc39.x86_64 is already installed. Dependencies resolved. Nothing to do. Complete! 2024-09-09 09:15.53 ---> saved as "899ad86fb03d0933c8fe5c57a4478c21ed3f822ce9f935a5d4d24f8f20878e19" /src: (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam")) 2024-09-09 09:15.53 ---> saved as "d3553587ce888158864badd7738b6991d0b226af08a789c18ed598b1f136022d" /src: (run (shell "opam init --reinit -ni")) Configuring from /home/opam/.opamrc and then from 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. This development version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.2, which can't be reverted. You may want to back it up before going further. Continue? [y/n] y Format upgrade done. <><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><> [default] synchronised from file:///home/opam/opam-repository 2024-09-09 09:17.39 ---> saved as "d40ec543ec1860e6f151eaea1e98cd4fcc2fb6cb5465908b83f29575116f7ded" /src: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version")) Linux 5.15.0-119-generic The OCaml toplevel, version 4.14.2 2.2.1 2024-09-09 09:17.39 ---> saved as "8b4548afcfaa39afc61a6920b7eefcebd8abcf30cee27a99f958e74225563b81" /src: (workdir /src) /src: (run (shell "sudo chown opam /src")) 2024-09-09 09:17.39 ---> saved as "f1d07aa64b4d22c1c6279690d2d9d4ea2586cdbd81ee4cfdbd730b84085623d4" /src: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "cd ~/opam-repository && (git cat-file -e b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && git log --no-decorate -n1 --oneline && opam update -u")) From https://github.com/ocaml/opam-repository * branch master -> FETCH_HEAD e89899ac28..16e8d80cc5 master -> origin/master b92ae980c0 Merge pull request #26439 from rgrinberg/release-re-1.12.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. # Run eval $(opam env) to update the current shell environment 2024-09-09 09:18.52 ---> saved as "e10bb76af20cbea419571e5f2d79bd7a5b7d36574ea18c011995ef2b3ed791d2" /src: (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'")) 2024-09-09 09:18.52 ---> saved as "f40bc06af3cdd45d152deb37802257ea8dd8d466ba4b07aaf39a3de3e504c385" /src: (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./)) 2024-09-09 09:18.52 ---> saved as "ac677c8e7fcecd347a78cae871bceb212f191f67cdad54b239326057ed06b743" /src: (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam) (dst bench/vendored/ppx_sexp_conv.v0.15.1/)) 2024-09-09 09:18.52 ---> saved as "acf9610a8c6175a7721c6f86b3a56e4241d729c02155ef37717b33dd02177219" /src: (run (network host) (shell "opam pin add -yn ppxlib.dev './' && \ \nopam pin add -yn ppxlib-bench.dev './' && \ \nopam pin add -yn ppx_sexp_conv 'bench/vendored/ppx_sexp_conv.v0.15.1/'")) [ppxlib.dev] synchronised (file:///src) ppxlib is now pinned to file:///src (version dev) Package ppxlib-bench does not exist, create as a NEW package? [y/n] y [ppxlib-bench.dev] synchronised (file:///src) ppxlib-bench is now pinned to file:///src (version dev) [ppx_sexp_conv.v0.17.0] synchronised (file:///src/bench/vendored/ppx_sexp_conv.v0.15.1) ppx_sexp_conv is now pinned to file:///src/bench/vendored/ppx_sexp_conv.v0.15.1 (version v0.15.0) 2024-09-09 09:18.56 ---> saved as "b271f6aab1788de26504887d4bbb970e923a99b6641847afcb19c099b98b4f84" /src: (env DEPS "base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2") /src: (env CI true) /src: (env OCAMLCI true) /src: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS")) + /usr/bin/sudo "yum" "makecache" - Fedora 39 - x86_64 325 kB/s | 29 kB 00:00 - Fedora 39 openh264 (From Cisco) - x86_64 11 kB/s | 989 B 00:00 - Fedora 39 - x86_64 - Updates 62 kB/s | 5.7 kB 00:00 - Metadata cache created. <><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><> [ppxlib.dev] synchronised (no changes) [ppxlib-bench.dev] synchronised (no changes) [NOTE] Package ocaml-options-vanilla is already installed (current version is 1). [NOTE] Package ocaml-config is already installed (current version is 2). [NOTE] Package ocaml-base-compiler is already installed (current version is 4.14.2). [NOTE] Package ocaml is already installed (current version is 4.14.2). [NOTE] Package host-system-other is already installed (current version is 1). [NOTE] Package host-arch-x86_64 is already installed (current version is 1). [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-bigarray is already installed (current version is base). 2024-09-09 09:19.15 ---> saved as "eb3495026b800114c8133e9c48ff080884e98985b2c64074763fbdef3ff8b1a4" /src: (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 2). [NOTE] Package ocaml-base-compiler is already installed (current version is 4.14.2). [NOTE] Package ocaml is already installed (current version is 4.14.2). [NOTE] Package host-system-other is already installed (current version is 1). [NOTE] Package host-arch-x86_64 is already installed (current version is 1). [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-bigarray is already installed (current version is base). The following actions will be performed: === install 14 packages - install base v0.16.3 - install cinaps v0.15.1 - install conf-bash 1 - install csexp 1.5.2 - install dune 3.16.0 - install dune-configurator 3.16.0 - install ocaml-compiler-libs v0.12.4 - install ocamlfind 1.9.6 - install ppx_derivers 1.2.1 - install re 1.12.0 - install seq base - install sexplib0 v0.16.0 - install stdlib-shims 0.3.0 - install yojson 2.2.2 <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> installed conf-bash.1 -> retrieved cinaps.v0.15.1 (cached) -> retrieved base.v0.16.3 (cached) -> retrieved csexp.1.5.2 (cached) -> retrieved ocaml-compiler-libs.v0.12.4 (cached) -> retrieved ppx_derivers.1.2.1 (cached) -> retrieved ocamlfind.1.9.6 (cached) -> retrieved seq.base (cached) -> installed seq.base -> retrieved re.1.12.0 (cached) -> retrieved sexplib0.v0.16.0 (cached) -> retrieved stdlib-shims.0.3.0 (cached) -> retrieved yojson.2.2.2 (cached) -> retrieved dune.3.16.0, dune-configurator.3.16.0 (cached) -> installed ocamlfind.1.9.6 -> installed dune.3.16.0 -> installed ppx_derivers.1.2.1 -> installed csexp.1.5.2 -> installed ocaml-compiler-libs.v0.12.4 -> installed re.1.12.0 -> installed sexplib0.v0.16.0 -> installed stdlib-shims.0.3.0 -> installed cinaps.v0.15.1 -> installed yojson.2.2.2 -> installed dune-configurator.3.16.0 -> installed base.v0.16.3 Done. # Run eval $(opam env) to update the current shell environment 2024-09-09 09:20.48 ---> saved as "9a8dc34c98bc3c9f103dc7807253dbf53c3912e2fe309cfc587934a841f51e2c" /src: (copy (src .) (dst /src)) 2024-09-09 09:20.48 ---> saved as "4319e857c4558b730e53e70f38bd3d4ab191fb483cf5b23db4a088b43e19cd4f" /src: (run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build")) (cd _build/default && .ppx/3134a5298fb2c80808cc94dd434856cb/ppx.exe -deriving-keep-w32=impl --cookie 'library-name="ppxlib_ast"' --impl ast/ast.ml -corrected-suffix .lint-corrected -diff-cmd - -null) File "ast/ast.ml", lines 1086-2416, characters 0-5: 1086 | class virtual map = 1087 | object (self) 1088 | method virtual bool : bool -> bool 1089 | method virtual char : char -> char 1090 | method virtual int : int -> int ... 2413 | Pdir_bool a 2414 | 2415 | method cases : cases -> cases = self#list self#case 2416 | end Error: ppxlib: the corrected code doesn't round-trip. This is probably a bug in the OCaml printer: 647c647,786 < (Pexp_function () () --- > (Pexp_function > (((pparam_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pparam_desc > (Pparam_val Nolabel () > ((ppat_desc > (Ppat_record > ((((txt (Lident pos_fname)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > ((ppat_desc > (Ppat_var > ((txt pos_fname) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ()))) > (((txt (Lident pos_lnum)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > ((ppat_desc > (Ppat_var > ((txt pos_lnum) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ()))) > (((txt (Lident pos_bol)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > ((ppat_desc > (Ppat_var > ((txt pos_bol) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ()))) > (((txt (Lident pos_cnum)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > ((ppat_desc > (Ppat_var > ((txt pos_cnum) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ())))) > Closed)) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ())))))) > () 650,674c789,818 < (Pexp_function < (((pparam_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pparam_desc < (Pparam_val Nolabel () < ((ppat_desc < (Ppat_record < ((((txt (Lident pos_fname)) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))) < ((ppat_desc < (Ppat_var < ((txt pos_fname) --- > (Pexp_let Nonrecursive > (((pvb_pat > ((ppat_desc > (Ppat_var > ((txt pos_fname) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ()))) > (pvb_expr > ((pexp_desc > (Pexp_apply > ((pexp_desc > (Pexp_send > ((pexp_desc > (Pexp_ident > ((txt (Lident self)) 683c827 < (ppat_loc --- > (pexp_loc 691,693c835,837 < (ppat_loc_stack ()) < (ppat_attributes ()))) < (((txt (Lident pos_lnum)) --- > (pexp_loc_stack ()) > (pexp_attributes ())) > ((txt string) 701,723c845,899 < (loc_ghost true)))) < ((ppat_desc < (Ppat_var < ((txt pos_lnum) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))))) < (ppat_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (ppat_loc_stack ()) < (ppat_attributes ()))) < (((txt (Lident pos_bol)) --- > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())) > ((Nolabel > ((pexp_desc > (Pexp_ident > ((txt (Lident pos_fname)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ()))) > (pvb_constraint ()) (pvb_attributes ()) > (pvb_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))))) > ((pexp_desc > (Pexp_let Nonrecursive > (((pvb_pat > ((ppat_desc > (Ppat_var > ((txt pos_lnum) 731,734c907,945 < (loc_ghost true)))) < ((ppat_desc < (Ppat_var < ((txt pos_bol) --- > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ()))) > (pvb_expr > ((pexp_desc > (Pexp_apply > ((pexp_desc > (Pexp_send > ((pexp_desc > (Pexp_ident > ((txt (Lident self)) > (loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())) > ((txt int) 743c954 < (ppat_loc --- > (pexp_loc 751,761c962,1006 < (ppat_loc_stack ()) < (ppat_attributes ()))) < (((txt (Lident pos_cnum)) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))) --- > (pexp_loc_stack ()) > (pexp_attributes ())) > ((Nolabel > ((pexp_desc > (Pexp_ident > ((txt (Lident pos_lnum)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ()))) > (pvb_constraint ()) (pvb_attributes ()) > (pvb_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))))) > ((pexp_desc > (Pexp_let Nonrecursive > (((pvb_pat 764c1009 < ((txt pos_cnum) --- > ((txt pos_bol) 782,865c1027,1030 < (ppat_attributes ())))) < Closed)) < (ppat_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (ppat_loc_stack ()) (ppat_attributes ())))))) < () < (Pfunction_body < ((pexp_desc < (Pexp_let Nonrecursive < (((pvb_pat < ((ppat_desc < (Ppat_var < ((txt pos_fname) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))))) < (ppat_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (ppat_loc_stack ()) (ppat_attributes ()))) < (pvb_expr < ((pexp_desc < (Pexp_apply < ((pexp_desc < (Pexp_send < ((pexp_desc < (Pexp_ident < ((txt (Lident self)) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())) < ((txt string) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())) < ((Nolabel --- > (ppat_attributes ()))) > (pvb_expr > ((pexp_desc > (Pexp_apply 867,868c1032,1058 < (Pexp_ident < ((txt (Lident pos_fname)) --- > (Pexp_send > ((pexp_desc > (Pexp_ident > ((txt (Lident self)) > (loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())) > ((txt int) 888,889c1078,1114 < (pexp_attributes ())))))) < (pexp_loc --- > (pexp_attributes ())) > ((Nolabel > ((pexp_desc > (Pexp_ident > ((txt (Lident pos_bol)) > (loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ()))) > (pvb_constraint ()) (pvb_attributes ()) > (pvb_loc 896,996c1121,1128 < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ()))) < (pvb_constraint ()) (pvb_attributes ()) < (pvb_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))))) < ((pexp_desc < (Pexp_let Nonrecursive < (((pvb_pat < ((ppat_desc < (Ppat_var < ((txt pos_lnum) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))))) < (ppat_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (ppat_loc_stack ()) < (ppat_attributes ()))) < (pvb_expr < ((pexp_desc < (Pexp_apply < ((pexp_desc < (Pexp_send < ((pexp_desc < (Pexp_ident < ((txt (Lident self)) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())) < ((txt int) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())) < ((Nolabel < ((pexp_desc < (Pexp_ident < ((txt (Lident pos_lnum)) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc --- > (loc_ghost true))))) > ((pexp_desc > (Pexp_let Nonrecursive > (((pvb_pat > ((ppat_desc > (Ppat_var > ((txt pos_cnum) > (loc 1005,1375c1137,1152 < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ()))) < (pvb_constraint ()) (pvb_attributes ()) < (pvb_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))))) < ((pexp_desc < (Pexp_let Nonrecursive < (((pvb_pat < ((ppat_desc < (Ppat_var < ((txt pos_bol) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (ppat_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (ppat_loc_stack ()) < (ppat_attributes ()))) < (pvb_expr < ((pexp_desc < (Pexp_apply < ((pexp_desc < (Pexp_send < ((pexp_desc < (Pexp_ident < ((txt (Lident self)) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) < (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) < (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())) < ((txt int) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())) < ((Nolabel < ((pexp_desc < (Pexp_ident < ((txt (Lident pos_bol)) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ()))) < (pvb_constraint ()) < (pvb_attributes ()) < (pvb_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))))) < ((pexp_desc < (Pexp_let Nonrecursive < (((pvb_pat < ((ppat_desc < (Ppat_var < ((txt pos_cnum) < (loc ...TRUNCATED BY DUNE... > (pexp_attributes ()))) > (pvb_constraint ()) (pvb_attributes ()) > (pvb_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))))) > ((pexp_desc > (Pexp_construct > ((txt (Lident Pdir_int)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > (((pexp_desc > (Pexp_tuple > (((pexp_desc > (Pexp_ident > ((txt (Lident a)) > (loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())) > ((pexp_desc > (Pexp_ident > ((txt (Lident b)) > (loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ()))))) 134975,134978c124094,124139 < (pexp_attributes ()))) < (pvb_constraint ()) < (pvb_attributes ()) < (pvb_loc --- > (pexp_attributes ()))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())))) > ((pc_lhs > ((ppat_desc > (Ppat_construct > ((txt (Lident Pdir_ident)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > ((() > ((ppat_desc > (Ppat_var > ((txt a) > (loc 134985,134997c124146,124243 < (loc_ghost true))))) < ((pexp_desc < (Pexp_construct < ((txt (Lident Pdir_ident)) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))) < (((pexp_desc --- > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ())))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ()))) > (pc_guard ()) > (pc_rhs > ((pexp_desc > (Pexp_let Nonrecursive > (((pvb_pat > ((ppat_desc > (Ppat_var > ((txt a) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) > (ppat_attributes ()))) > (pvb_expr > ((pexp_desc > (Pexp_apply > ((pexp_desc > (Pexp_send > ((pexp_desc > (Pexp_ident > ((txt (Lident self)) > (loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())) > ((txt longident) > (loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())) > ((Nolabel > ((pexp_desc 135019,135030c124265,124277 < (pexp_attributes ()))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())))) < (pexp_loc --- > (pexp_attributes ())))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ()))) > (pvb_constraint ()) (pvb_attributes ()) > (pvb_loc 135037,135043c124284,124307 < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ())))) < ((pc_lhs < ((ppat_desc < (Ppat_construct < ((txt (Lident Pdir_bool)) < (loc --- > (loc_ghost true))))) > ((pexp_desc > (Pexp_construct > ((txt (Lident Pdir_ident)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > (((pexp_desc > (Pexp_ident > ((txt (Lident a)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc 135050,135054c124314,124433 < (loc_ghost true)))) < ((() < ((ppat_desc < (Ppat_var < ((txt a) --- > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ()))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())))) > ((pc_lhs > ((ppat_desc > (Ppat_construct > ((txt (Lident Pdir_bool)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > ((() > ((ppat_desc > (Ppat_var > ((txt a) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ())))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) (ppat_attributes ()))) > (pc_guard ()) > (pc_rhs > ((pexp_desc > (Pexp_let Nonrecursive > (((pvb_pat > ((ppat_desc > (Ppat_var > ((txt a) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (ppat_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (ppat_loc_stack ()) > (ppat_attributes ()))) > (pvb_expr > ((pexp_desc > (Pexp_apply > ((pexp_desc > (Pexp_send > ((pexp_desc > (Pexp_ident > ((txt (Lident self)) > (loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) > (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ())) > ((txt bool) 135065c124444 < (ppat_loc --- > (pexp_loc 135073,135224c124452,124455 < (ppat_loc_stack ()) < (ppat_attributes ())))))) < (ppat_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (ppat_loc_stack ()) (ppat_attributes ()))) < (pc_guard ()) < (pc_rhs < ((pexp_desc < (Pexp_let Nonrecursive < (((pvb_pat < ((ppat_desc < (Ppat_var < ((txt a) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (ppat_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (ppat_loc_stack ()) < (ppat_attributes ()))) < (pvb_expr < ((pexp_desc < (Pexp_apply < ((pexp_desc < (Pexp_send < ((pexp_desc < (Pexp_ident < ((txt (Lident self)) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) < (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) < (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())) < ((txt bool) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())) < ((Nolabel < ((pexp_desc < (Pexp_ident < ((txt (Lident a)) < (loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) < (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ())))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) < (pexp_attributes ()))) < (pvb_constraint ()) < (pvb_attributes ()) < (pvb_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))))) < ((pexp_desc < (Pexp_construct < ((txt (Lident Pdir_bool)) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))) < (((pexp_desc --- > (pexp_loc_stack ()) > (pexp_attributes ())) > ((Nolabel > ((pexp_desc 135246c124477,124518 < (pexp_attributes ()))))) --- > (pexp_attributes ())))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) > (pexp_attributes ()))) > (pvb_constraint ()) (pvb_attributes ()) > (pvb_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))))) > ((pexp_desc > (Pexp_construct > ((txt (Lident Pdir_bool)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))) > (((pexp_desc > (Pexp_ident > ((txt (Lident a)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) 135256,135274c124528,124546 < (pexp_attributes ())))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ()))))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ()))))) --- > (pexp_attributes ()))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ()))))))) 135378,135454c124650,124656 < (Pexp_function () () < (Pfunction_body < ((pexp_desc < (Pexp_apply < ((pexp_desc < (Pexp_send < ((pexp_desc < (Pexp_ident < ((txt (Lident self)) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ())) < ((txt list) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ())) < ((Nolabel < ((pexp_desc < (Pexp_send < ((pexp_desc < (Pexp_ident < ((txt (Lident self)) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ())) < ((txt case) < (loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) < (pos_bol 0) (pos_cnum -1))) < (loc_ghost true)))))) < (pexp_loc --- > (Pexp_apply > ((pexp_desc > (Pexp_send > ((pexp_desc > (Pexp_ident > ((txt (Lident self)) > (loc 135461,135471c124663,124731 < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ())))))) < (pexp_loc < ((loc_start < ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_end < ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) < (pos_cnum -1))) < (loc_ghost true))) < (pexp_loc_stack ()) (pexp_attributes ()))))) --- > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())) > ((txt list) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())) > ((Nolabel > ((pexp_desc > (Pexp_send > ((pexp_desc > (Pexp_ident > ((txt (Lident self)) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) > (pos_bol 0) (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())) > ((txt case) > (loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true)))))) > (pexp_loc > ((loc_start > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_end > ((pos_fname _none_) (pos_lnum 1) (pos_bol 0) > (pos_cnum -1))) > (loc_ghost true))) > (pexp_loc_stack ()) (pexp_attributes ())))))) File "test/metaquot/test.ml", line 1, characters 0-0: /usr/bin/git --no-pager diff --no-index --color=always -u _build/default/test/metaquot/test.ml _build/default/test/metaquot/test.ml.corrected diff --git a/_build/default/test/metaquot/test.ml b/_build/default/test/metaquot/test.ml.corrected index b33049e..2ec72ba 100644 --- a/_build/default/test/metaquot/test.ml +++ b/_build/default/test/metaquot/test.ml.corrected @@ -613,5 +613,7 @@ let _ = [%%expect{| -- : string = "fun x y z -> (x + y) + z" +Line _, characters 44-48: +Error: This expression has type Ppxlib.expression + but an expression was expected of type Parsetree.expression |}] "/usr/bin/env" "bash" "-c" "opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1 2024-09-09 09:21.27: Job failed: Failed: Build failed