2026-03-28 07:25.54: New job: test dinosaure/prettym https://github.com/dinosaure/prettym.git#refs/pull/8/head (e984a0afcf87b6cdc095830e1e73bc7d9a62f79b) (linux-x86_64:(lint-fmt)) Base: ocaml/opam:debian-13-ocaml-4.08@sha256:048f41796adc21a1c591ba8a7027365f75adbd0cc47a89cb4ad5d856f4815f47 ocamlformat version: version 0.28.1 (from opam) To reproduce locally: git clone --recursive "https://github.com/dinosaure/prettym.git" && cd "prettym" && git fetch origin "refs/pull/8/head" && git reset --hard e984a0af cat > Dockerfile <<'END-OF-DOCKERFILE' FROM ocaml/opam:debian-13-ocaml-4.08@sha256:048f41796adc21a1c591ba8a7027365f75adbd0cc47a89cb4ad5d856f4815f47 USER 1000:1000 RUN cd ~/opam-repository && (git cat-file -e 3f91b1a4e14ca8dfac77aab17a7ed4a7857644e1 || git fetch origin master) && git reset -q --hard 3f91b1a4e14ca8dfac77aab17a7ed4a7857644e1 && 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-03-28 07:25.54: Using cache hint "dinosaure/prettym-ocaml/opam:debian-13-ocaml-4.08@sha256:048f41796adc21a1c591ba8a7027365f75adbd0cc47a89cb4ad5d856f4815f47-debian-13-4.08_opam-2.5-ocamlformat-3f91b1a4e14ca8dfac77aab17a7ed4a7857644e1" 2026-03-28 07:25.54: Using OBuilder spec: ((from ocaml/opam:debian-13-ocaml-4.08@sha256:048f41796adc21a1c591ba8a7027365f75adbd0cc47a89cb4ad5d856f4815f47) (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 3f91b1a4e14ca8dfac77aab17a7ed4a7857644e1 || git fetch origin master) && git reset -q --hard 3f91b1a4e14ca8dfac77aab17a7ed4a7857644e1 && 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-03-28 07:25.54: Waiting for resource in pool OCluster 2026-03-28 07:33.39: Waiting for worker… 2026-03-28 07:36.43: Got resource from pool OCluster Building on asteria.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 e984a0a Add the ability to encode values without margin (from ocaml/opam:debian-13-ocaml-4.08@sha256:048f41796adc21a1c591ba8a7027365f75adbd0cc47a89cb4ad5d856f4815f47) 2026-03-28 07:36.45 ---> using "867303d7f04cee0d3e23016229d2a45a69516628a14dbff52754cd3cb283f66f" 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 3f91b1a4e14ca8dfac77aab17a7ed4a7857644e1 || git fetch origin master) && git reset -q --hard 3f91b1a4e14ca8dfac77aab17a7ed4a7857644e1 && git log --no-decorate -n1 --oneline && opam update -u")) From https://github.com/ocaml/opam-repository * branch master -> FETCH_HEAD ffb54b9bdd..65664dc5b2 master -> origin/master 3f91b1a4e1 Merge pull request #29568 from Julow/ocamlformat-constraints-dune322 <><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><> [default] Initialised default (at git+file:///home/opam/opam-repository): [INFO] opam 2.1 and 2.2 include many performance and security improvements over 2.0; please consider upgrading (https://opam.ocaml.org/doc/Install.html) The following actions will be performed: - recompile ocaml-base-compiler 4.08.1* [upstream changes] - recompile ocaml-config 1 [uses ocaml-base-compiler] - recompile ocaml 4.08.1 [uses ocaml-base-compiler] - recompile opam-depext 1.2.3 [uses ocaml] ===== 4 to recompile ===== <><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><> [ocaml-base-compiler.4.08.1] found in cache [opam-depext.1.2.3] found in cache <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> removed opam-depext.1.2.3 -> removed ocaml.4.08.1 -> removed ocaml-config.1 -> removed ocaml-base-compiler.4.08.1 -> installed ocaml-base-compiler.4.08.1 -> installed ocaml-config.1 -> installed ocaml.4.08.1 -> installed opam-depext.1.2.3 Done. # Run eval $(opam env) to update the current shell environment 2026-03-28 07:36.45 ---> using "32d1b69e67f451f9098a103e97d6cfda36f7531338cb72c13390c3cd07390654" from cache /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i dune")) # Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian # No extra OS packages requirements found. # All required OS packages found. # Now letting opam install the packages The following actions will be performed: - install dune 3.22.0 <><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><> [dune.3.22.0] found in cache <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> installed dune.3.22.0 Done. # Run eval $(opam env) to update the current shell environment 2026-03-28 07:36.45 ---> using "08096ea5f63aa8c8fb03277641e4c72ebc81499f7a7a3889ebe570a785b47aa0" 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")) # Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian # No extra OS packages requirements found. # All required OS packages found. # Now letting opam install the packages The following actions will be performed: - install sexplib0 v0.14.0 [required by base] - 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 cmdliner 2.1.0 [required by ocamlformat] - install ocaml-version 4.0.4 [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 camlp-streams 5.0.1 [required by ocamlformat-lib] - install seq base [required by re] - install fix 20250919 [required by ocamlformat-lib] - install ocamlfind 1.9.8 [required by ocp-indent, astring, fpath, uuseg] - install menhirCST 20260209 [required by menhir] - install dune-build-info 3.22.0 [required by ocamlformat-lib] - install dune-configurator 3.22.0 [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.14.3 [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.14.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 ===== <><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><> [astring.0.8.5] found in cache [base.v0.14.3] found in cache [camlp-streams.5.0.1] found in cache [cmdliner.2.1.0] found in cache [csexp.1.5.2] found in cache [dune-build-info.3.22.0] found in cache [dune-configurator.3.22.0] found in cache [either.1.0.0] found in cache [fix.20250919] found in cache [fpath.0.7.3] found in cache [menhir.20260209] found in cache [menhirCST.20260209] found in cache [menhirGLR.20260209] found in cache [menhirLib.20260209] found in cache [menhirSdk.20260209] found in cache [ocaml-version.4.0.4] found in cache [ocamlbuild.0.16.1] found in cache [ocamlfind.1.9.8] found in cache [ocamlformat.0.28.1] found in cache [ocamlformat-lib.0.28.1] found in cache [ocp-indent.1.9.0] found in cache [re.1.11.0] found in cache [sexplib0.v0.14.0] found in cache [stdio.v0.14.0] found in cache [topkg.1.1.1] found in cache [uucp.15.0.0] found in cache [uuseg.15.0.0] found in cache [uutf.1.0.4] found in cache <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> installed seq.base -> installed camlp-streams.5.0.1 -> installed csexp.1.5.2 -> installed cmdliner.2.1.0 -> installed dune-build-info.3.22.0 -> installed either.1.0.0 -> installed fix.20250919 -> installed menhirCST.20260209 -> installed menhirGLR.20260209 -> installed menhirLib.20260209 -> installed menhirSdk.20260209 -> installed ocaml-version.4.0.4 -> installed re.1.11.0 -> installed sexplib0.v0.14.0 -> installed dune-configurator.3.22.0 -> installed ocamlbuild.0.16.1 -> installed ocamlfind.1.9.8 -> installed ocp-indent.1.9.0 -> installed base.v0.14.3 -> installed menhir.20260209 -> installed topkg.1.1.1 -> installed stdio.v0.14.0 -> 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.08/share/emacs/site-lisp") (require 'ocp-indent) * for Vim, add this line to ~/.vimrc: set rtp^="/home/opam/.opam/4.08/share/ocp-indent/vim" # Run eval $(opam env) to update the current shell environment 2026-03-28 07:36.45 ---> using "000cd7b6efe09f2a4b8348720f5b9ec53152237a5149e531611a64528b6a0c00" from cache /src: (copy (src .) (dst /src/)) 2026-03-28 07:36.45 ---> saved as "c429624ae654acb892817756176993ce3f595f170cc932bf80ed8466e6d804c5" /src: (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)")) 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 "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 "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-03-28 07:36.46: Job failed: Failed: Build failed