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_gh
st 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