Organisationsocaml-ppxppxlibd22f93 ()macos-homebrew-4.14_opam-2.2

macos-homebrew-4.14_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) (macos-x86_64:macos-homebrew-4.14_opam-2.2)
Base: macos-homebrew-ocaml-4.14
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 macos-homebrew-ocaml-4.14
# macos-homebrew-4.14_opam-2.2
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
RUN ln -f ~/local/bin/opam-2.2 ~/local/bin/opam
RUN opam init --reinit -ni
RUN uname -rs && opam exec -- ocaml -version && opam --version
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 ./src/./
COPY --chown=1000:1000 bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam ./src/bench/vendored/ppx_sexp_conv.v0.15.1/
RUN opam pin add -yn ppxlib.dev './src/./' && \
    opam pin add -yn ppxlib-bench.dev './src/./' && \
    opam pin add -yn ppx_sexp_conv './src/bench/vendored/ppx_sexp_conv.v0.15.1/'
ENV DEPS="base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2"
ENV CI="true"
ENV OCAMLCI="true"
RUN opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS
RUN opam install $DEPS
COPY --chown=1000:1000 . ./src
RUN cd ./src && 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-macos-homebrew-ocaml-4.14-macos-homebrew-4.14_opam-2.2-4f1820867029e02e156b9f528a626911"
2024-09-09 09:13.53: Using OBuilder spec:
((from macos-homebrew-ocaml-4.14)
 (comment macos-homebrew-4.14_opam-2.2)
 (user (uid 1000) (gid 1000))
 (env CLICOLOR_FORCE 1)
 (env OPAMCOLOR always)
 (run (shell "ln -f ~/local/bin/opam-2.2 ~/local/bin/opam"))
 (run (shell "opam init --reinit -ni"))
 (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
 (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
      (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 ./src/./))
 (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam)
       (dst ./src/bench/vendored/ppx_sexp_conv.v0.15.1/))
 (run (network host)
      (shell  "opam pin add -yn ppxlib.dev './src/./' && \
             \nopam pin add -yn ppxlib-bench.dev './src/./' && \
             \nopam pin add -yn ppx_sexp_conv './src/bench/vendored/ppx_sexp_conv.v0.15.1/'"))
 (env DEPS "base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2")
 (env CI true)
 (env OCAMLCI true)
 (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
      (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 /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
      (network host)
      (shell "opam install $DEPS"))
 (copy (src .) (dst ./src))
 (run (shell "cd ./src && 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:17.06: Got resource from pool OCluster
Building on i7-worker-01
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 macos-homebrew-ocaml-4.14)
2024-09-09 09:17.08 ---> using "0c60f117aee57abea8364cb033d47bb1d63ff0f68e5ee97378e032498e8442af" from cache

/: (comment macos-homebrew-4.14_opam-2.2)

/: (user (uid 1000) (gid 1000))

/: (env CLICOLOR_FORCE 1)

/: (env OPAMCOLOR always)

/: (run (shell "ln -f ~/local/bin/opam-2.2 ~/local/bin/opam"))
2024-09-09 09:17.09 ---> using "0fc88bc096429f8087d29338c802b1e4d45e761b825e45695066961067369beb" from cache

/: (run (shell "opam init --reinit -ni"))
No configuration file found, using built-in defaults.
Checking for available remotes: rsync and local, git.
  - you won't be able to use mercurial repositories unless you install the hg command on your system.
  - you won't be able to use darcs repositories unless you install the darcs command on your system.

This version of opam requires an update to the layout of /Users/mac1000/.opam from version 2.1 to version 2.2, which can't be reverted.
You may want to back it up before going further.

Continue? [y/n] y
[NOTE] The 'jobs' option was reset, its value was 1 and its new value will vary according to the current number of cores on your machine. You can restore the fixed value using:
           opam option jobs=1 --global
Format upgrade done.

<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] no changes from git+file:///Users/mac1000/opam-repository
2024-09-09 09:17.09 ---> using "73ba886e49c62b39892c1961565fafbc649da382428721fca289ffcf0b892673" from cache

/: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
Darwin 23.4.0
The OCaml toplevel, version 4.14.2
2.2.0
2024-09-09 09:17.10 ---> using "07fa1eab191e27fa6a90116da06eed20ebaaf79e4c99d1f9adbbe0baf8e3f1a3" from cache

/: (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
        (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
   c635641299..b92ae980c0  master     -> origin/master
b92ae980c0 Merge pull request #26439 from rgrinberg/release-re-1.12.0

<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from git+file:///Users/mac1000/opam-repository
default (at git+file:///Users/mac1000/opam-repository): 
    [WARNING] opam is out-of-date. Please consider updating it (https://opam.ocaml.org/doc/Install.html)


Everything as up-to-date as possible (run with --verbose to show unavailable upgrades).

The following packages are not being upgraded because the new versions conflict with other installed packages:
  - ocaml.5.4.0
  - ocaml-config.3
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:17.10 ---> using "22842df0153cd1951a23c0a3d8560717a4c1cd118bad1d4166140d2c37ef5770" from cache

/: (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
2024-09-09 09:17.11 ---> using "2596fab37a1be4dc30308731810351797072a5a218146d99d65746e00fbe2c2f" from cache

/: (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./src/./))
2024-09-09 09:17.11 ---> using "ce6aadf30d3f4d8e1d2490697e0f579c121cbe20ca4ff73c5bbdf22115281e57" from cache

/: (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam)
         (dst ./src/bench/vendored/ppx_sexp_conv.v0.15.1/))
2024-09-09 09:17.12 ---> using "c11863e4efc66d782e0bdc393ed660f7914ba77ab37e11a9beeb637a649d1ace" from cache

/: (run (network host)
        (shell  "opam pin add -yn ppxlib.dev './src/./' && \
               \nopam pin add -yn ppxlib-bench.dev './src/./' && \
               \nopam pin add -yn ppx_sexp_conv './src/bench/vendored/ppx_sexp_conv.v0.15.1/'"))
[ppxlib.dev] synchronised (file:///Users/mac1000/src)
ppxlib is now pinned to file:///Users/mac1000/src (version dev)
Package ppxlib-bench does not exist, create as a NEW package? [y/n] y
[ppxlib-bench.dev] synchronised (file:///Users/mac1000/src)
ppxlib-bench is now pinned to file:///Users/mac1000/src (version dev)
[ppx_sexp_conv.v0.17.0] synchronised (file:///Users/mac1000/src/bench/vendored/ppx_sexp_conv.v0.15.1)
ppx_sexp_conv is now pinned to file:///Users/mac1000/src/bench/vendored/ppx_sexp_conv.v0.15.1 (version v0.15.0)
2024-09-09 09:17.13 ---> using "83acae618c35f1490c47a5bb275f2168223ee3e9a53489ec596baaed66b2a9c5" from cache

/: (env DEPS "base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2")

/: (env CI true)

/: (env OCAMLCI true)

/: (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
        (network host)
        (shell "opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS"))
+ /usr/local/bin/brew "update"
- ==> Updating Homebrew...
- Already up-to-date.

<><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><>
[ppxlib.dev] synchronised (no changes)
[ppxlib-bench.dev] synchronised (no changes)

[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 2).
[NOTE] Package ocaml-base-compiler is already installed (current version is 4.14.2).
[NOTE] Package ocaml is already installed (current version is 4.14.2).
[NOTE] Package host-system-other is already installed (current version is 1).
[NOTE] Package host-arch-x86_64 is already installed (current version is 1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
2024-09-09 09:17.13 ---> using "42070aa3009a991e5ed9db36060ffd32369a5246badde8454859e181b891b9a3" from cache

/: (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
        (network host)
        (shell "opam install $DEPS"))
[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 2).
[NOTE] Package ocaml-base-compiler is already installed (current version is 4.14.2).
[NOTE] Package ocaml is already installed (current version is 4.14.2).
[NOTE] Package host-system-other is already installed (current version is 1).
[NOTE] Package host-arch-x86_64 is already installed (current version is 1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
The following actions will be performed:
=== install 14 packages
  - install base                v0.16.3
  - install cinaps              v0.15.1
  - install conf-bash           1
  - install csexp               1.5.2
  - install dune                3.16.0
  - install dune-configurator   3.16.0
  - install ocaml-compiler-libs v0.12.4
  - install ocamlfind           1.9.6
  - install ppx_derivers        1.2.1
  - install re                  1.12.0
  - install seq                 base
  - install sexplib0            v0.16.0
  - install stdlib-shims        0.3.0
  - install yojson              2.2.2

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved cinaps.v0.15.1  (cached)
-> installed conf-bash.1
-> retrieved csexp.1.5.2  (cached)
-> retrieved ocaml-compiler-libs.v0.12.4  (cached)
-> retrieved base.v0.16.3  (cached)
-> retrieved ocamlfind.1.9.6  (cached)
-> retrieved re.1.12.0  (cached)
-> retrieved seq.base  (cached)
-> installed seq.base
-> retrieved ppx_derivers.1.2.1  (cached)
-> retrieved sexplib0.v0.16.0  (cached)
-> retrieved stdlib-shims.0.3.0  (cached)
-> retrieved yojson.2.2.2  (cached)
-> retrieved dune.3.16.0, dune-configurator.3.16.0  (cached)
-> installed ocamlfind.1.9.6
-> installed dune.3.16.0
-> installed stdlib-shims.0.3.0
-> installed ppx_derivers.1.2.1
-> installed csexp.1.5.2
-> installed yojson.2.2.2
-> installed sexplib0.v0.16.0
-> installed re.1.12.0
-> installed ocaml-compiler-libs.v0.12.4
-> installed cinaps.v0.15.1
-> installed dune-configurator.3.16.0
-> installed base.v0.16.3
Done.
# Run eval $(opam env) to update the current shell environment
2024-09-09 09:17.14 ---> using "28172b0c9589a3a4c70afa6b14b6beacf4672c04028628fb496fa50864cc73df" from cache

/: (copy (src .) (dst ./src))
2024-09-09 09:17.16 ---> saved as "6a8959bc88864479aaf0a054696ca74d4bef9acbba117dff54379ab455f2cad0"

/: (run (shell "cd ./src && opam exec -- dune build @install @check @runtest && rm -rf _build"))
File "test/metaquot/test.ml", line 1, characters 0-0:
/usr/bin/git --no-pager diff --no-index --color=always -u _build/default/test/metaquot/test.ml _build/default/test/metaquot/test.ml.corrected
diff --git a/_build/default/test/metaquot/test.ml b/_build/default/test/metaquot/test.ml.corrected
index b33049e..2ec72ba 100644
--- a/_build/default/test/metaquot/test.ml
+++ b/_build/default/test/metaquot/test.ml.corrected
@@ -613,5 +613,7 @@ let _ =
 
 
 [%%expect{|
-- : string = "fun x y z -> (x + y) + z"
+Line _, characters 44-48:
+Error: This expression has type Ppxlib.expression
+       but an expression was expected of type Parsetree.expression
 |}]
(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,1303c1137,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...
<                                                    (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
>                                           ((pexp_desc
>                                             (Pexp_send
135170c123878
<                                                 ((txt (Lident a))
---
>                                                 ((txt (Lident self))
135192c123900,124084
<                                               (pexp_attributes ()))))))
---
>                                               (pexp_attributes ()))
>                                              ((txt option)
>                                               (loc
>                                                ((loc_start
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_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 char)
>                                                 (loc
>                                                  ((loc_start
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_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 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 ()))))))
>                                         (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_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 ())))))
135202,135205c124094,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
135212,135215c124146,124298
<                                          (loc_ghost true)))))
<                                      ((pexp_desc
<                                        (Pexp_construct
<                                         ((txt (Lident Pdir_bool))
---
>                                          (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
>                                            (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_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))
135223,135224c124306,124455
<                                            (loc_ghost true))))
<                                         (((pexp_desc
---
>                                            (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 ()))))
>                                (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)
>                                            (loc
>                                             ((loc_start
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_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
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" "cd ./src && opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1
2024-09-09 09:17.45: Job failed: Failed: Build failed