2026-04-16 16:39.37: New job: test dinosaure/prettym https://github.com/dinosaure/prettym.git#refs/heads/main (fec4d1b288f5ec1a645ce686e45ac15bc1369c5f) (linux-x86_64:(lint-fmt)) Base: ocaml/opam:debian-13-ocaml-4.08@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c 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 fec4d1b2 cat > Dockerfile <<'END-OF-DOCKERFILE' FROM ocaml/opam:debian-13-ocaml-4.08@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c USER 1000:1000 RUN cd ~/opam-repository && (git cat-file -e 5f7bb1a6e69f1ea15d8b2b08eeaa70a162c6fd41 || git fetch origin master) && git reset -q --hard 5f7bb1a6e69f1ea15d8b2b08eeaa70a162c6fd41 && 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-04-16 16:39.37: Using cache hint "dinosaure/prettym-ocaml/opam:debian-13-ocaml-4.08@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c-debian-13-4.08_opam-2.5-ocamlformat-5f7bb1a6e69f1ea15d8b2b08eeaa70a162c6fd41" 2026-04-16 16:39.37: Using OBuilder spec: ((from ocaml/opam:debian-13-ocaml-4.08@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c) (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 5f7bb1a6e69f1ea15d8b2b08eeaa70a162c6fd41 || git fetch origin master) && git reset -q --hard 5f7bb1a6e69f1ea15d8b2b08eeaa70a162c6fd41 && 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-04-16 16:39.37: Waiting for resource in pool OCluster 2026-04-16 19:57.39: Waiting for worker… 2026-04-16 20:03.23: Got resource from pool OCluster Building on eumache.caelum.ci.dev All commits already cached HEAD is now at fec4d1b Merge pull request #8 from dinosaure/optional-margin (from ocaml/opam:debian-13-ocaml-4.08@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c) Unable to find image 'ocaml/opam:debian-13-ocaml-4.08@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c' locally docker.io/ocaml/opam@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c: Pulling from ocaml/opam a7730063fcfe: Already exists 1a27fd2181de: Already exists c29591c91388: Already exists 356a64daa753: Already exists ac02f8f2062b: Already exists aaa2f390e4c8: Already exists b668811757f6: Already exists 32fd4e1a774f: Already exists b1d486fb8fdf: Already exists cf8a2024f299: Already exists 8c4a5dac67c3: Already exists 6adfe24d7b40: Already exists dccd6e3c0589: Already exists 2ee4bcb55cd4: Already exists 2dc3b58478d7: Already exists daf15e5c44c6: Already exists 564e978a8088: Already exists 564e978a8088: Already exists 25a652a8c456: Already exists b3bfea7bff3f: Already exists a00f2937f570: Already exists 78bd1737ebff: Already exists 4f4fb700ef54: Already exists 4291a055edd7: Already exists 3c2b2836d59a: Already exists 7b3e96544a52: Already exists c72503effb14: Already exists bca08df11a10: Already exists 2ab0829b2daf: Already exists 1d246d4da211: Already exists a09cb4870027: Already exists 2ce07b4fe7c0: Already exists 6b96f28d505e: Already exists b6ad36bba9bf: Already exists 56d62791a0f9: Already exists 4d60780055d1: Already exists 43f57a7c44cb: Already exists f21057dc4e85: Already exists e0d2ca1300ed: Already exists 9da2f7598f8e: Already exists cb569bb28593: Already exists b32c9abef0bb: Pulling fs layer dd7da3e42740: Pulling fs layer 06223904e4d3: Pulling fs layer b18a38618cf8: Pulling fs layer b18a38618cf8: Waiting 06223904e4d3: Verifying Checksum 06223904e4d3: Download complete dd7da3e42740: Verifying Checksum dd7da3e42740: Download complete b18a38618cf8: Verifying Checksum b18a38618cf8: Download complete b32c9abef0bb: Verifying Checksum b32c9abef0bb: Download complete b32c9abef0bb: Pull complete dd7da3e42740: Pull complete 06223904e4d3: Pull complete b18a38618cf8: Pull complete Digest: sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c Status: Downloaded newer image for ocaml/opam@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c 2026-04-16 20:03.23 ---> using "228e5ba11f0bea08c69266bb98d12a75785691261b07b0808652a307a04e14b2" 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 5f7bb1a6e69f1ea15d8b2b08eeaa70a162c6fd41 || git fetch origin master) && git reset -q --hard 5f7bb1a6e69f1ea15d8b2b08eeaa70a162c6fd41 && git log --no-decorate -n1 --oneline && opam update -u")) From https://github.com/ocaml/opam-repository * branch master -> FETCH_HEAD 42844088d7..0b0acbee05 master -> origin/master 5f7bb1a6e6 Merge pull request #29704 from shonfeder/release-dune-3.22.2 <><> 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) Everything as up-to-date as possible (run with --verbose to show unavailable upgrades). However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages. Nothing to do. # Run eval $(opam env) to update the current shell environment 2026-04-16 20:03.23 ---> using "258cae844a72eb8aff9e0ff154fcd3221fc099e2496be43da4df2e66c163b3fe" 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.2 <><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><> [dune.3.22.2] found in cache <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> installed dune.3.22.2 Done. # Run eval $(opam env) to update the current shell environment 2026-04-16 20:03.23 ---> using "effbcae8fcd9a93cf66de0f212437b65e55b1a8be7f39c4a9a3ce354b6ec7445" 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 dune-build-info 3.22.2 [required by ocamlformat-lib] - install sexplib0 v0.14.0 [required by base] - install ocamlbuild 0.16.1 [required by fpath, astring, uuseg] - install ocaml-version 4.0.4 [required by ocamlformat-lib] - 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 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-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.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.2] found in cache [dune-configurator.3.22.2] 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 dune-build-info.3.22.2 -> installed either.1.0.0 -> installed fix.20250919 -> installed menhirCST.20260209 -> installed menhirGLR.20260209 -> installed menhirLib.20260209 -> installed cmdliner.2.1.0 -> installed dune-configurator.3.22.2 -> installed menhirSdk.20260209 -> installed ocaml-version.4.0.4 -> installed re.1.11.0 -> installed sexplib0.v0.14.0 -> installed ocamlfind.1.9.8 -> installed ocp-indent.1.9.0 -> installed ocamlbuild.0.16.1 -> 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-04-16 20:06.21 ---> saved as "7b3035ee1758b72e15694f22cee0d984606a2adb8ad3d988ce37d51c0444abbe" /src: (copy (src .) (dst /src/)) 2026-04-16 20:06.21 ---> saved as "778ca9208e841f63d80082a0d20efe21c4ac9c0fbb0ca676b0e92ce41250f80a" /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-04-16 20:06.23: Job failed: Failed: Build failed