(lint-fmt)

2026-04-21 13:24.48: New job: test robur-coop/flux https://github.com/robur-coop/flux.git#refs/heads/fix-ci (acf6fed4b4a555cf84503a40d24f3da01300c45c) (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/robur-coop/flux.git" -b "fix-ci" && cd "flux" && git reset --hard acf6fed4
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-21 13:24.48: Using cache hint "robur-coop/flux-ocaml/opam:debian-13-ocaml-4.08@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c-debian-13-4.08_opam-2.5-ocamlformat-5f7bb1a6e69f1ea15d8b2b08eeaa70a162c6fd41"
2026-04-21 13:24.48: 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-21 13:24.48: Waiting for resource in pool OCluster
2026-04-21 13:24.48: Waiting for worker…
2026-04-21 13:28.41: Got resource from pool OCluster
Building on bremusa.ocamllabs.io
All commits already cached
HEAD is now at acf6fed Add an opam file for examples


(from ocaml/opam:debian-13-ocaml-4.08@sha256:3cbf0e68d3a718b80b9a2ab282b68bb62badcbc072fa014a5564516c5f70e74c)
2026-04-21 13:29.28 ---> saved as "228e5ba11f0bea08c69266bb98d12a75785691261b07b0808652a307a04e14b2"


/: (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..c197717534  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-21 13:31.43 ---> saved as "258cae844a72eb8aff9e0ff154fcd3221fc099e2496be43da4df2e66c163b3fe"


/: (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-21 13:32.37 ---> saved as "effbcae8fcd9a93cf66de0f212437b65e55b1a8be7f39c4a9a3ce354b6ec7445"


/: (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 cmdliner.2.1.0
-> 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.2
-> 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-21 13:34.01 ---> saved as "7b3035ee1758b72e15694f22cee0d984606a2adb8ad3d988ce37d51c0444abbe"


/src: (copy (src .) (dst /src/))
2026-04-21 13:34.01 ---> saved as "d2356b382f21f8195475c5ef53bb677c4bbdf4d5981e795a905b95f96277dfda"


/src: (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)"))
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 840d209..95c4566 100644
--- a/_build/default/test/test.ml
+++ b/_build/default/test/.formatted/test.ml
@@ -92,13 +92,16 @@ let miou02 =
(* An infinite queue and we would like to allocate, consume some,
and properly clean-up everything. *)
let v = Atomic.make false in
-  let from =
+  let from =
Source.with_task ~size:0x7ff @@ fun q ->
let finally () = assert (Atomic.exchange v true = false) in
let r = Miou.Ownership.create ~finally () in
Miou.Ownership.own r;
-    while true do Flux.Bqueue.put q () done;
-    Miou.Ownership.release r in
+    while true do
+      Flux.Bqueue.put q ()
+    done;
+    Miou.Ownership.release r
+  in
let stream = Stream.from from in
let _ = Stream.into (Sink.buffer 2) stream in
Alcotest.(check bool) "resource" (Atomic.get v) true
@@ -107,23 +110,21 @@ let formatter01 =
Alcotest.test_case "formatter01" `Quick @@ fun () ->
let s = "Hello, World!" in
let src =
-    Flux.Source.with_buffered_formatter ~size:16 ~buffer_size:1024 @@
-    fun ppf ->
+    Flux.Source.with_buffered_formatter ~size:16 ~buffer_size:1024 @@ fun ppf ->
Format.pp_print_string ppf s
in
let called = ref false in
-  Flux.Source.each (fun s' ->
+  Flux.Source.each
+    (fun s' ->
called := true;
Alcotest.(check string) "." s s')
src;
-  if not !called then
-    Alcotest.fail "nothing was flushed"
+  if not !called then Alcotest.fail "nothing was flushed"


let () =
Miou_unix.run @@ fun () ->
Alcotest.run "test"
[
("basics", [ basic00; basic01; basic02; basic03; basic04; basic05 ])
-    ; ("formatter", [ formatter01 ])
-    ; ("miou", [ miou00; miou01; miou02 ])
+    ; ("formatter", [ formatter01 ]); ("miou", [ miou00; miou01; miou02 ])
]
File "lib/flux.mli", line 1, characters 0-0:
diff --git a/_build/default/lib/flux.mli b/_build/default/lib/.formatted/flux.mli
index 662ea7b..ff828aa 100644
--- a/_build/default/lib/flux.mli
+++ b/_build/default/lib/.formatted/flux.mli
@@ -161,13 +161,15 @@ module Source : sig
formatter is transmitted to the consumer. *)


val with_buffered_formatter :
-    ?halt:bool -> size:int -> buffer_size:int -> (Format.formatter -> unit) -> string source
+       ?halt:bool
+    -> size:int
+    -> buffer_size:int
+    -> (Format.formatter -> unit)
+    -> string source
(** [with_buffered_formatter ?halt ~size ~buffer_size producer] is like
[with_formatter ?halt ~size producer] except the output is buffered
respecting flushing by the formatter. All outputs are at least
-      [buffer_size] long except if [Format.pp_print_flush] is called earlier.
-  *)
-
+      [buffer_size] long except if [Format.pp_print_flush] is called earlier. *)
end


(** {1:sinks Sinks.}
File "lib/flux.ml", line 1, characters 0-0:
diff --git a/_build/default/lib/flux.ml b/_build/default/lib/.formatted/flux.ml
index 3f5b874..b9b2d72 100644
--- a/_build/default/lib/flux.ml
+++ b/_build/default/lib/.formatted/flux.ml
@@ -128,18 +128,15 @@ module Source = struct
with_task ?halt ~size @@ fun q ->
let buf = Buffer.create buffer_size in
let flush () =
-      if Buffer.length buf > 0 then
+      if Buffer.length buf > 0 then (
let s = Buffer.contents buf in
-        Buffer.clear buf;
-        Bqueue.put q s
+        Buffer.clear buf; Bqueue.put q s)
in
let out str off len =
if Buffer.length buf = 0 && len >= buffer_size then
Bqueue.put q (String.sub str off len)
-      else
-        Buffer.add_substring buf str off len;
-      if Buffer.length buf >= buffer_size then
-        flush ()
+      else Buffer.add_substring buf str off len;
+      if Buffer.length buf >= buffer_size then flush ()
in
let formatter = Format.make_formatter out flush in
fn formatter;
@@ -691,11 +688,13 @@ module Stream = struct
let stream sink = into (flow sink) t in
{ stream }


-  let from ?(dispose_if_full= true) (Source src) =
+  let from ?(dispose_if_full = true) (Source src) =
let stream (Sink k) =
let rec go r s =
let is_full = k.full r in
-        if is_full && dispose_if_full then begin src.stop s; k.stop r end
+        if is_full && dispose_if_full then begin
+          src.stop s; k.stop r
+        end
else if is_full then k.stop r
else
match src.pull s with
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-21 13:34.03: Job failed: Failed: Build failed