(lint-fmt)

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