Organisationsocaml-ppxppxlibd22f93 ()fedora-40-5.2_opam-2.2

fedora-40-5.2_opam-2.2

Logs

Show full logs
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-40-5.2_opam-2.2)
Base: ocaml/opam:fedora-40-ocaml-5.2@sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4
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-40-ocaml-5.2@sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4
# fedora-40-5.2_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.17.1 base-bigarray.base base-domains.base base-nnp.base base-threads.base base-unix.base cinaps.v0.15.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml_intrinsics_kernel.v0.17.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.17.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-40-ocaml-5.2@sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4-fedora-40-5.2_opam-2.2-44005344e9981ac06d6266624bafd6be"
2024-09-09 09:13.53: Using OBuilder spec:
((from ocaml/opam:fedora-40-ocaml-5.2@sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4)
 (comment fedora-40-5.2_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.17.1 base-bigarray.base base-domains.base base-nnp.base base-threads.base base-unix.base cinaps.v0.15.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml_intrinsics_kernel.v0.17.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.17.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-c15.sw.ocaml.org
HEAD is now at 258b4a7f Expose Pp_ast.strucure_item and signature_item
HEAD is now at d22f931e Add coalesce_arity to Ast_builder and use it in metaquot

(from ocaml/opam:fedora-40-ocaml-5.2@sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4)
Unable to find image 'ocaml/opam:fedora-40-ocaml-5.2@sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4' locally
docker.io/ocaml/opam@sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4: Pulling from ocaml/opam
db0c8aa2043e: Pulling fs layer
db0c8aa2043e: Verifying Checksum
db0c8aa2043e: Download complete
db0c8aa2043e: Pull complete
Digest: sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4
Status: Downloaded newer image for ocaml/opam@sha256:cda39327b739709e555061c0e1151d5c7eec3445fe2a6506aaefae4abe821dc4
2024-09-09 09:16.25 ---> saved as "97ffe23b1ffac4cd09c5b13a33bcb9a7d9d3af1d4bd511df743c298bb55a1e0c"

/: (comment fedora-40-5.2_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 40 - x86_64                              353 kB/s |  29 kB     00:00    
Fedora 40 - x86_64 - Updates                    119 kB/s | 8.6 kB     00:00    
Fedora 40 - x86_64 - Updates                    6.1 MB/s | 4.7 MB     00:00    
Package findutils-1:4.9.0-9.fc40.x86_64 is already installed.
Dependencies resolved.
Nothing to do.
Complete!
2024-09-09 09:16.32 ---> saved as "76a390bfb0c810077e6e4c330927ddf1e20f4b54d8a62df35f56643615675f9d"

/src: (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam"))
2024-09-09 09:16.32 ---> saved as "53695b0c6efb85aaca937fd280244a8ed35c5a2fa48b7cc3b18a59ed584556b2"

/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 "334bef672415f16af245f0e7d6b5ee2cd5b0854758f78383d1a04dec72826cb8"

/src: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
Linux 5.15.0-119-generic
The OCaml toplevel, version 5.2.0
2.2.1
2024-09-09 09:17.39 ---> saved as "db91b0c63195630be7ab71c202596069d20d9b771d0bc96acb3806d5b23480b5"

/src: (workdir /src)

/src: (run (shell "sudo chown opam /src"))
2024-09-09 09:17.39 ---> saved as "c827cfbbdc96c18896bae00e01e68b7e5339238b9c2740722799bf1281640bec"

/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.37 ---> saved as "fa536c5f77ea5a9e6926a928f76104f705121fba94fd89bb62dd27cf13d6d9ee"

/src: (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
2024-09-09 09:18.38 ---> saved as "45434846eab6e1d33cd7afb0a8009db5737656b1d873cdb80a0dc49d52602076"

/src: (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./))
2024-09-09 09:18.38 ---> saved as "b6787d1f8d3acc659adf2093f8eeafaa1bbaf24fdfa441169f1ffabef8b4a520"

/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.38 ---> saved as "019a91486e6897ba98c2a9f1403c481f4b9063fabe8d52fe1e140752122e821f"

/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.42 ---> saved as "094f914c8c90fcb9ab3eb247507857e1018fae29b9b7dd6b7e23b0f236d78622"

/src: (env DEPS "base.v0.17.1 base-bigarray.base base-domains.base base-nnp.base base-threads.base base-unix.base cinaps.v0.15.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml_intrinsics_kernel.v0.17.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.17.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 40 - x86_64                              303 kB/s |  29 kB     00:00    
- Fedora 40 openh264 (From Cisco) - x86_64         14 kB/s | 989  B     00:00    
- Fedora 40 - x86_64 - Updates                    115 kB/s | 8.6 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 3).
[NOTE] Package ocaml-base-compiler is already installed (current version is 5.2.0).
[NOTE] Package ocaml is already installed (current version is 5.2.0).
[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-nnp is already installed (current version is base).
[NOTE] Package base-domains is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
2024-09-09 09:18.55 ---> saved as "e98e9ade88e1b7bdef3daba34cdd202e05f203166e3e94d1c9b92619d476493f"

/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 3).
[NOTE] Package ocaml-base-compiler is already installed (current version is 5.2.0).
[NOTE] Package ocaml is already installed (current version is 5.2.0).
[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-nnp is already installed (current version is base).
[NOTE] Package base-domains is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
The following actions will be performed:
=== install 14 packages
  - install base                    v0.17.1
  - install cinaps                  v0.15.1
  - install csexp                   1.5.2
  - install dune                    3.16.0
  - install dune-configurator       3.16.0
  - install ocaml-compiler-libs     v0.17.0
  - install ocaml_intrinsics_kernel v0.17.1
  - install ocamlfind               1.9.6
  - install ppx_derivers            1.2.1
  - install re                      1.12.0
  - install seq                     base
  - install sexplib0                v0.17.0
  - install stdlib-shims            0.3.0
  - install yojson                  2.2.2

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved cinaps.v0.15.1  (cached)
-> retrieved base.v0.17.1  (cached)
-> retrieved csexp.1.5.2  (cached)
-> retrieved ocaml-compiler-libs.v0.17.0  (cached)
-> retrieved ocaml_intrinsics_kernel.v0.17.1  (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.17.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.17.0
-> installed ocaml_intrinsics_kernel.v0.17.1
-> installed re.1.12.0
-> installed sexplib0.v0.17.0
-> installed stdlib-shims.0.3.0
-> installed yojson.2.2.2
-> installed cinaps.v0.15.1
-> installed dune-configurator.3.16.0
-> installed base.v0.17.1
Done.
# Run eval $(opam env) to update the current shell environment
2024-09-09 09:19.46 ---> saved as "8aabb48e5aa46e6ae9f638513524de400fb492f005b2b69099efce1932e87026"

/src: (copy (src .) (dst /src))
2024-09-09 09:19.46 ---> saved as "4290d2c108d623e35d73a06a46a9b76197ff1e7ee7fbeabf269715e92aa628b3"

/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 ()))))))

"/usr/bin/env" "bash" "-c" "opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1
2024-09-09 09:20.12: Job failed: Failed: Build failed