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:opensuse-15.6-4.14_opam-2.2)
Base: ocaml/opam:opensuse-15.6-ocaml-4.14@sha256:69c208e0f6db98557011c589cbc3c19ec94dce3e014406f2f0436f5788d07440
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:opensuse-15.6-ocaml-4.14@sha256:69c208e0f6db98557011c589cbc3c19ec94dce3e014406f2f0436f5788d07440
# opensuse-15.6-4.14_opam-2.2
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
WORKDIR /src
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:opensuse-15.6-ocaml-4.14@sha256:69c208e0f6db98557011c589cbc3c19ec94dce3e014406f2f0436f5788d07440-opensuse-15.6-4.14_opam-2.2-4f1820867029e02e156b9f528a626911"
2024-09-09 09:13.53: Using OBuilder spec:
((from ocaml/opam:opensuse-15.6-ocaml-4.14@sha256:69c208e0f6db98557011c589cbc3c19ec94dce3e014406f2f0436f5788d07440)
(comment opensuse-15.6-4.14_opam-2.2)
(user (uid 1000) (gid 1000))
(env CLICOLOR_FORCE 1)
(env OPAMCOLOR always)
(workdir /src)
(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.53: 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:opensuse-15.6-ocaml-4.14@sha256:69c208e0f6db98557011c589cbc3c19ec94dce3e014406f2f0436f5788d07440)
2024-09-09 09:15.03 ---> saved as "70b4077df3ce1b2b7d8bd0810c213a95ee8d3096c1deb2ce5dabf54edf442575"
/: (comment opensuse-15.6-4.14_opam-2.2)
/: (user (uid 1000) (gid 1000))
/: (env CLICOLOR_FORCE 1)
/: (env OPAMCOLOR always)
/: (workdir /src)
/src: (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam"))
2024-09-09 09:15.03 ---> saved as "3417d8d2c06876d9d659b8cac1eb3bc5bd1910a5985785a3ac818c824f3aadb4"
/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
[NOTE] The 'jobs' option was reset, its value was 255 and its new value will vary according to the current number of cores on your machine. You can restore the fixed value using:
opam option jobs=255 --global
Format upgrade done.
<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
2024-09-09 09:16.43 ---> saved as "1d2bf6ff13b0655b9a5dc1ee049072ba6d334a6b09c1673135dd1eaa6c9808fc"
/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:16.44 ---> saved as "5157cba4a9b0e03e72f003d3c5f6c4025d0ddf63cff071019d98703d8d54f350"
/src: (workdir /src)
/src: (run (shell "sudo chown opam /src"))
2024-09-09 09:16.44 ---> saved as "8574b7fd4ec299fb26e3696e1b9fb1ce8d1227ce0750766abc6437bd3d1db8f3"
/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.03 ---> saved as "79057ad6a01ea20f96d2c9b244f7cfa4ea78f2cc1ebaa9c26c562f8cb0ffddfa"
/src: (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
2024-09-09 09:18.03 ---> saved as "353d58924baf791d09853b8ec180a5e218a2f6ef52453978a8b9581b5b3d2cee"
/src: (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./))
2024-09-09 09:18.04 ---> saved as "2116209fbb57d3a697fbdfbb15f66f2394ca8ffa5c27b3fc9dfe1475687eb5c3"
/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.04 ---> saved as "9bf5f508ec125f88f32fd247beea809f0d39bc631adf674eb4e789df60aac2c4"
/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.22 ---> saved as "fab0128e2e1249978aa7d59f7aa457dc0e72776c630dba7dafd8d14239e438a5"
/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 "zypper" "--non-interactive" "refresh"
- Retrieving repository 'Update repository of openSUSE Backports' metadata [.....
- .....done]
- Building repository 'Update repository of openSUSE Backports' cache [....done]
- Repository 'Non-OSS Repository' is up to date.
- Repository 'Main Repository' is up to date.
- Retrieving repository 'Update repository with updates from SUSE Linux Enterprise 15' metadata [..
- .......
- .........
- done]
- Building repository 'Update repository with updates from SUSE Linux Enterprise 15' cache [..
- ..done]
- Repository 'Main Update Repository' is up to date.
- Retrieving repository 'Update Repository (Non-Oss)' metadata [........done]
- Building repository 'Update Repository (Non-Oss)' cache [...done]
- All repositories have been refreshed.
<><> 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.00 ---> saved as "f7a52819a796ab74ef13214bd460a449b9550b5387971ddc3834884c5f8b1f2d"
/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 <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved cinaps.v0.15.1 (cached)
-> retrieved base.v0.16.3 (cached)
-> retrieved csexp.1.5.2 (cached)
-> installed conf-bash.1
-> 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 sexplib0.v0.16.0
-> installed stdlib-shims.0.3.0
-> installed ocaml-compiler-libs.v0.12.4
-> installed re.1.12.0
-> installed yojson.2.2.2
-> installed cinaps.v0.15.1
-> 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.29 ---> saved as "ee601a473606abb60dc344ff4ef7f439a6b10fed950c86b8e9150a1028c66739"
/src: (copy (src .) (dst /src))
2024-09-09 09:20.30 ---> saved as "39ec5191966a517e71bc70d60927aeb1fc4544caf33e8c7680c2ff10145190b6"
/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.12: Job failed: Failed: Build failed