2026-05-13 10:18.59: New job: test dinosaure/prettym https://github.com/dinosaure/prettym.git#refs/heads/main (42d0f757bc4094cfdc1f76d130428c20f447fb57) (linux-x86_64:(lint-fmt)) Base: ocaml/opam:debian-13-ocaml-4.11@sha256:6c34153b2b07fc0f884e792a60178e250c2d06a45050e01ed0883a67ec11440c ocamlformat version: version 0.28.1 (from opam) To reproduce locally: git clone --recursive "https://github.com/dinosaure/prettym.git" -b "main" && cd "prettym" && git reset --hard 42d0f757 cat > Dockerfile <<'END-OF-DOCKERFILE' FROM ocaml/opam:debian-13-ocaml-4.11@sha256:6c34153b2b07fc0f884e792a60178e250c2d06a45050e01ed0883a67ec11440c USER 1000:1000 RUN cd ~/opam-repository && (git cat-file -e a4f153d7481c469b20f3b1064338d6a21abcb832 || git fetch origin master) && git reset -q --hard a4f153d7481c469b20f3b1064338d6a21abcb832 && git log --no-decorate -n1 --oneline && opam update -u RUN opam depext -i dune WORKDIR /src RUN opam depext -i ocamlformat=0.28.1 COPY --chown=1000:1000 . /src/ RUN opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2) END-OF-DOCKERFILE docker build . END-REPRO-BLOCK 2026-05-13 10:18.59: Using cache hint "dinosaure/prettym-ocaml/opam:debian-13-ocaml-4.11@sha256:6c34153b2b07fc0f884e792a60178e250c2d06a45050e01ed0883a67ec11440c-debian-13-4.11_opam-2.5-ocamlformat-a4f153d7481c469b20f3b1064338d6a21abcb832" 2026-05-13 10:18.59: Using OBuilder spec: ((from ocaml/opam:debian-13-ocaml-4.11@sha256:6c34153b2b07fc0f884e792a60178e250c2d06a45050e01ed0883a67ec11440c) (user (uid 1000) (gid 1000)) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "cd ~/opam-repository && (git cat-file -e a4f153d7481c469b20f3b1064338d6a21abcb832 || git fetch origin master) && git reset -q --hard a4f153d7481c469b20f3b1064338d6a21abcb832 && git log --no-decorate -n1 --oneline && opam update -u")) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i dune")) (workdir /src) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i ocamlformat=0.28.1")) (copy (src .) (dst /src/)) (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)")) ) 2026-05-13 10:18.59: Waiting for resource in pool OCluster 2026-05-13 10:39.50: Waiting for worker… 2026-05-13 10:41.55: Got resource from pool OCluster Building on clete.caelum.ci.dev hint: Using 'master' as the name for the initial branch. This default branch name hint: is subject to change. To configure the initial branch name to use in all hint: of your new repositories, which will suppress this warning, call: hint: hint: git config --global init.defaultBranch <name> hint: hint: Names commonly chosen instead of 'master' are 'main', 'trunk' and hint: 'development'. The just-created branch can be renamed via this command: hint: hint: git branch -m <name> Initialized empty Git repository in /var/cache/obuilder/ocluster/git/prettym.git-dc8d49cb93aad76576bb20d67607f0b245367688/.git/ HEAD is now at 42d0f75 Merge pull request #9 from dinosaure/prepare-v0.0.5 (from ocaml/opam:debian-13-ocaml-4.11@sha256:6c34153b2b07fc0f884e792a60178e250c2d06a45050e01ed0883a67ec11440c) 2026-05-13 10:41.56 ---> using "36abb6db1723167d15c41f53ef05d371444812dc64e2ea7fe109d222db988473" from cache /: (user (uid 1000) (gid 1000)) /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "cd ~/opam-repository && (git cat-file -e a4f153d7481c469b20f3b1064338d6a21abcb832 || git fetch origin master) && git reset -q --hard a4f153d7481c469b20f3b1064338d6a21abcb832 && git log --no-decorate -n1 --oneline && opam update -u")) From https://github.com/ocaml/opam-repository * branch master -> FETCH_HEAD fc08333d1b..ba03103280 master -> origin/master a4f153d748 Merge pull request #29889 from mtelvers/opam-publish-ocaml-version.4.1.1 <><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><> [default] synchronised from git+file:///home/opam/opam-repository 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.6.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 2026-05-13 10:41.56 ---> using "57933430ce6ee04fd567f281e7ebe5f3ade1880481602bde6f454d0e84e43b4d" from cache /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i dune")) Since version 2.1, opam now handles external dependencies alongside OCaml ones, and the `depext` plugin interface is provided for backwards compatibility only. Consider using your usual `opam install` command to install both OCaml and system dependencies, or `opam install <pkg> --depext-only` if you want to only install external dependencies. # Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian # No extra OS packages requirements found. The following actions will be performed: - install dune 3.22.2 <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> retrieved dune.3.22.2 (cached) -> installed dune.3.22.2 Done. # Run eval $(opam env) to update the current shell environment 2026-05-13 10:41.56 ---> using "0660a7a1aacf9713843c7c8443a91791ddff911339fa457c1ce83edfc713c9b0" from cache /: (workdir /src) /src: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i ocamlformat=0.28.1")) Since version 2.1, opam now handles external dependencies alongside OCaml ones, and the `depext` plugin interface is provided for backwards compatibility only. Consider using your usual `opam install` command to install both OCaml and system dependencies, or `opam install <pkg> --depext-only` if you want to only install external dependencies. # Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian # No extra OS packages requirements found. The following actions will be performed: - install ocamlbuild 0.16.1 [required by fpath, astring, uuseg] - install either 1.0.0 [required by ocamlformat-lib] - install menhirLib 20260209 [required by ocamlformat-lib] - install csexp 1.5.2 [required by ocamlformat] - install menhirSdk 20260209 [required by ocamlformat-lib] - install menhirGLR 20260209 [required by menhir] - install cmdliner 2.1.1 [required by ocamlformat] - install camlp-streams 5.0.1 [required by ocamlformat-lib] - install dune-build-info 3.22.2 [required by ocamlformat-lib] - install seq base [required by re] - install ocaml-version 4.1.1 [required by ocamlformat-lib] - install fix 20250919 [required by ocamlformat-lib] - install sexplib0 v0.15.1 [required by base] - install ocamlfind 1.9.8 [required by ocp-indent, astring, fpath, uuseg] - install menhirCST 20260209 [required by menhir] - install dune-configurator 3.22.2 [required by base] - install re 1.11.0 [required by ocamlformat] - install topkg 1.1.1 [required by fpath, astring, uuseg] - install ocp-indent 1.9.0 [required by ocamlformat-lib] - install menhir 20260209 [required by ocamlformat-lib] - install base v0.15.2 [required by ocamlformat-lib] - install uutf 1.0.4 [required by ocamlformat-lib] - install astring 0.8.5 [required by ocamlformat-lib] - install stdio v0.15.0 [required by ocamlformat-lib] - install uucp 15.0.0 [required by uuseg] - install fpath 0.7.3 [required by ocamlformat-lib] - install uuseg 15.0.0 [required by ocamlformat-lib] - install ocamlformat-lib 0.28.1 [required by ocamlformat] - install ocamlformat 0.28.1 ===== 29 to install ===== <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> retrieved astring.0.8.5 (cached) -> retrieved base.v0.15.2 (cached) -> retrieved camlp-streams.5.0.1 (cached) -> retrieved cmdliner.2.1.1 (cached) -> retrieved csexp.1.5.2 (cached) -> retrieved dune-build-info.3.22.2 (cached) -> installed camlp-streams.5.0.1 -> retrieved either.1.0.0 (cached) -> installed csexp.1.5.2 -> retrieved fix.20250919 (cached) -> retrieved dune-configurator.3.22.2 (cached) -> installed dune-build-info.3.22.2 -> retrieved fpath.0.7.3 (cached) -> installed either.1.0.0 -> retrieved menhir.20260209 (cached) -> installed fix.20250919 -> retrieved menhirCST.20260209 (cached) -> retrieved menhirGLR.20260209 (cached) -> retrieved menhirLib.20260209 (cached) -> retrieved menhirSdk.20260209 (cached) -> retrieved ocaml-version.4.1.1 (cached) -> installed menhirCST.20260209 -> retrieved ocamlbuild.0.16.1 (cached) -> retrieved ocamlfind.1.9.8 (cached) -> retrieved ocp-indent.1.9.0 (cached) -> retrieved re.1.11.0 (cached) -> retrieved seq.base (cached) -> installed seq.base -> installed ocaml-version.4.1.1 -> retrieved sexplib0.v0.15.1 (cached) -> retrieved stdio.v0.15.0 (cached) -> retrieved ocamlformat.0.28.1 (cached) -> installed menhirLib.20260209 -> installed menhirGLR.20260209 -> installed menhirSdk.20260209 -> retrieved ocamlformat-lib.0.28.1 (cached) -> retrieved topkg.1.1.1 (cached) -> retrieved uucp.15.0.0 (cached) -> retrieved uuseg.15.0.0 (cached) -> retrieved uutf.1.0.4 (cached) -> installed sexplib0.v0.15.1 -> installed dune-configurator.3.22.2 -> installed cmdliner.2.1.1 -> installed re.1.11.0 -> installed ocamlfind.1.9.8 -> installed ocp-indent.1.9.0 -> installed ocamlbuild.0.16.1 -> installed base.v0.15.2 -> installed stdio.v0.15.0 -> installed menhir.20260209 -> installed topkg.1.1.1 -> installed uutf.1.0.4 -> installed astring.0.8.5 -> installed fpath.0.7.3 -> installed uucp.15.0.0 -> installed uuseg.15.0.0 -> installed ocamlformat-lib.0.28.1 -> installed ocamlformat.0.28.1 Done. <><> ocp-indent.1.9.0 installed successfully ><><><><><><><><><><><><><><><><><> => This package requires additional configuration for use in editors. Install package 'user-setup', or manually: * for Emacs, add these lines to ~/.emacs: (add-to-list 'load-path "/home/opam/.opam/4.11/share/emacs/site-lisp") (require 'ocp-indent) * for Vim, add this line to ~/.vimrc: set rtp^="/home/opam/.opam/4.11/share/ocp-indent/vim" # Run eval $(opam env) to update the current shell environment 2026-05-13 10:41.56 ---> using "ed8c08b79112e24a23433f12b91916ca9777d4a776fee504e16bea48f654b197" from cache /src: (copy (src .) (dst /src/)) 2026-05-13 10:41.57 ---> saved as "321a7096f5a6ca45b41982212ed43c93d161afc4857fe80cc93b3821cdf088b9" /src: (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)")) File "lib/prettym.mli", line 1, characters 0-0: diff --git a/_build/default/lib/prettym.mli b/_build/default/lib/.formatted/prettym.mli index c47e960..9e65b47 100644 --- a/_build/default/lib/prettym.mli +++ b/_build/default/lib/.formatted/prettym.mli @@ -130,7 +130,11 @@ end val io_buffer_size : int val create : - ?margin:int option -> ?new_line:string -> emitter:(IOVec.t list -> int) -> int -> ppf + ?margin:int option -> + ?new_line:string -> + emitter:(IOVec.t list -> int) -> + int -> + ppf (** [create ?margin ?new_line ~emitter weight] creates a serializer bounded to [weight] elements. The serializer is limiter to emit [margin] bytes per lines and break the line with [new_line] (default to ["\r\n"]). File "lib/pretty.mli", line 1, characters 0-0: diff --git a/_build/default/lib/pretty.mli b/_build/default/lib/.formatted/pretty.mli index a213855..0b9cbb0 100644 --- a/_build/default/lib/pretty.mli +++ b/_build/default/lib/.formatted/pretty.mli @@ -22,4 +22,8 @@ val flush : t -> t val is_empty : t -> bool val create : - ?margin:int option -> ?new_line:string -> emitter:Enclosure.emitter -> int -> t + ?margin:int option -> + ?new_line:string -> + emitter:Enclosure.emitter -> + int -> + t File "test/test.ml", line 1, characters 0-0: diff --git a/_build/default/test/test.ml b/_build/default/test/.formatted/test.ml index c35dec6..4e3a9c2 100644 --- a/_build/default/test/test.ml +++ b/_build/default/test/.formatted/test.ml @@ -164,7 +164,9 @@ let make v = List.fold_left write 0 in - let encoder = Prettym.create ~emitter ~margin:(Some 78) ~new_line:"\n" 0x100 in + let encoder = + Prettym.create ~emitter ~margin:(Some 78) ~new_line:"\n" 0x100 + in let kend encoder = if Prettym.is_empty encoder then () @@ -187,7 +189,9 @@ let unroll_box () = ] k x y in - let result = Prettym.to_string ~margin:(Some 14) g ("AAAAAA", "BBBBBB", "CCCCCC") in + let result = + Prettym.to_string ~margin:(Some 14) g ("AAAAAA", "BBBBBB", "CCCCCC") + in Alcotest.(check string) "result" result "AAAAAA:\r\n BBBBBB&CCCCCC\r\n" (* XXX(dinosaure): instead to cut at [&], it unroll the [tbox] and print elements to the new line. *) File "lib/pretty.ml", line 1, characters 0-0: diff --git a/_build/default/lib/pretty.ml b/_build/default/lib/.formatted/pretty.ml index 0291e69..0afdf2c 100644 --- a/_build/default/lib/pretty.ml +++ b/_build/default/lib/.formatted/pretty.ml @@ -155,14 +155,14 @@ let pp_token ppf = function let pp ppf t = Format.fprintf ppf "{ @[<hov>boxes= @[<hov>%a@];@ breaks= @[<hov>%a@];@ inner= @[<hov>%a@];@ \ - indent= %d;@ new_line= %S;@ queue= @[<hov>%a@];@ encoder= \ - @[<hov>%a@];@] }" + indent= %d;@ new_line= %S;@ queue= @[<hov>%a@];@ encoder= @[<hov>%a@];@] \ + }" (Stack.pp pp_box) t.boxes (Stack.pp (pp_list pp_break)) t.breaks (Stack.pp (pp_list Format.pp_print_int)) - t.inner t.indent t.new_line (Queue.pp pp_token) t.queue - Enclosure.pp t.encoder + t.inner t.indent t.new_line (Queue.pp pp_token) t.queue Enclosure.pp + t.encoder let ( <.> ) f g x = f (g x) let flip f a b = f b a @@ -249,16 +249,19 @@ let unroll_last_box_and_emit k value t = emit_line (merge_indents k) { t with queue = q } let rec kpush_breakable_value ~current_length_of_line k value t = - let exceeding0 = match t.margin with + let exceeding0 = + match t.margin with | None -> false - | Some margin -> current_length_of_line >= margin in - let exceeding1 = match t.margin with + | Some margin -> current_length_of_line >= margin + in + let exceeding1 = + match t.margin with | None -> false - | Some margin -> current_length_of_line + length_of_token (TValue value) > margin in - if exceeding0 then - emit_line (merge_indents (kpush k (Breakable value))) t - else if exceeding1 - then + | Some margin -> + current_length_of_line + length_of_token (TValue value) > margin + in + if exceeding0 then emit_line (merge_indents (kpush k (Breakable value))) t + else if exceeding1 then if is_in_box t && not (Queue.is_empty (without_last_box t.queue)) then unroll_last_box_and_emit k value t else @@ -279,13 +282,13 @@ let rec kpush_breakable_value ~current_length_of_line k value t = } and kpush_unbreakable_value ~current_length_of_line k value t = - let exceeding = match t.margin with + let exceeding = + match t.margin with | None -> false - | Some margin -> current_length_of_line + length_of_token (TValue value) > margin in - if - exceeding - && not (Queue.is_empty t.queue) - then + | Some margin -> + current_length_of_line + length_of_token (TValue value) > margin + in + if exceeding && not (Queue.is_empty t.queue) then if is_in_box t && not (Queue.is_empty (without_last_box t.queue)) then unroll_last_box_and_emit k value t else @@ -365,11 +368,13 @@ and kpush k value t = Queue.tail t.queue >>= merge_breaks break with | Some (queue, len) -> - let exceeding = match t.margin with + let exceeding = + match t.margin with | None -> false - | Some margin -> current_length_of_line + length_of_token (TBreak len) >= margin in - if exceeding - then + | Some margin -> + current_length_of_line + length_of_token (TBreak len) >= margin + in + if exceeding then emit_line (merge_indents k) { t with queue; breaks = append t.breaks (`Indent indent) } else @@ -381,11 +386,13 @@ and kpush k value t = breaks = append t.breaks (`Indent indent); } | None -> - let exceeding = match t.margin with + let exceeding = + match t.margin with | None -> false - | Some margin -> current_length_of_line + length_of_token (TBreak len) > margin in - if exceeding - then + | Some margin -> + current_length_of_line + length_of_token (TBreak len) > margin + in + if exceeding then emit_line (merge_indents k) { t with breaks = append t.breaks (`Indent indent) } else dune build @fmt failed "/usr/bin/env" "bash" "-c" "opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2)" failed with exit status 2 2026-05-13 10:41.57: Job failed: Failed: Build failed