(lint-fmt)

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