2025-05-21 10:43.10: New job: test ahrefs/ocannl https://github.com/ahrefs/ocannl.git#refs/heads/master (495b9f40152fbfb28e9b4c99de09840940ccb650) (linux-x86_64:(lint-fmt))Base: ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7ocamlformat version: version 0.27.0 (from opam)To reproduce locally:git clone --recursive "https://github.com/ahrefs/ocannl.git" -b "master" && cd "ocannl" && git reset --hard 495b9f40cat > Dockerfile <<'END-OF-DOCKERFILE'FROM ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7USER 1000:1000RUN cd ~/opam-repository && (git cat-file -e 35eb2f107a989a2d623b0bbe170696398fcb9b1e || git fetch origin master) && git reset -q --hard 35eb2f107a989a2d623b0bbe170696398fcb9b1e && git log --no-decorate -n1 --oneline && opam update -uRUN opam depext -i duneWORKDIR /srcRUN opam depext -i ocamlformat=0.27.0COPY --chown=1000:1000 . /src/RUN opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2)END-OF-DOCKERFILEdocker build .END-REPRO-BLOCK2025-05-21 10:43.10: Using cache hint "ahrefs/ocannl-ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7-debian-12-4.08_opam-2.3-ocamlformat-35eb2f107a989a2d623b0bbe170696398fcb9b1e"2025-05-21 10:43.10: Using OBuilder spec:((from ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7)(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 35eb2f107a989a2d623b0bbe170696398fcb9b1e || git fetch origin master) && git reset -q --hard 35eb2f107a989a2d623b0bbe170696398fcb9b1e && 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.27.0"))(copy (src .) (dst /src/))(run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)")))2025-05-21 10:43.10: Waiting for resource in pool OCluster2025-05-21 10:43.10: Waiting for worker…2025-05-21 10:43.16: Got resource from pool OClusterBuilding on asteria.caelum.ci.devAll commits already cachedHEAD is now at 495b9f40 Tentative domain-based stdout capture(from ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7)2025-05-21 10:44.15 ---> saved as "d1b97f3f32fc7cff4791d73e3fff398d19cc5b0541c709028ff05a921e22d2c8"/: (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 35eb2f107a989a2d623b0bbe170696398fcb9b1e || git fetch origin master) && git reset -q --hard 35eb2f107a989a2d623b0bbe170696398fcb9b1e && git log --no-decorate -n1 --oneline && opam update -u"))35eb2f107a Merge pull request #27838 from maiste/release-dune-3.18.2<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>[default] Initialiseddefault (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 environment2025-05-21 10:45.13 ---> saved as "0ed37ff9180ea5331ab17e3106ce3fc10bf21b69021c66107f159798cee036fc"/: (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 packagesThe following actions will be performed:- install dune 3.18.2<><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><>[dune.3.18.2] found in cache<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>-> installed dune.3.18.2Done.# Run eval $(opam env) to update the current shell environment2025-05-21 10:46.00 ---> saved as "dc3dc92082cbd6b1d2902dc06db6b555f449a0b1c6f054b5888f3ddab10a5d9e"/: (workdir /src)/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))(network host)(shell "opam depext -i ocamlformat=0.27.0"))# 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 packagesThe following actions will be performed:- install sexplib0 v0.14.0 [required by base]- install dune-build-info 3.18.2 [required by ocamlformat-lib]- install cmdliner 1.3.0 [required by ocamlformat]- install menhirLib 20240715 [required by ocamlformat-lib]- install menhirCST 20240715 [required by menhir]- install ocamlbuild 0.16.1 [required by fpath, astring, uuseg]- install menhirSdk 20240715 [required by ocamlformat-lib]- install either 1.0.0 [required by ocamlformat-lib]- install ocaml-version 4.0.0 [required by ocamlformat-lib]- install camlp-streams 5.0.1 [required by ocamlformat-lib]- install csexp 1.5.2 [required by ocamlformat]- install seq base [required by re]- install fix 20250428 [required by ocamlformat-lib]- install ocamlfind 1.9.8 [required by ocp-indent, astring, fpath, uuseg]- install menhir 20240715 [required by ocamlformat-lib]- install dune-configurator 3.18.2 [required by base]- install re 1.11.0 [required by ocamlformat]- install topkg 1.0.8 [required by fpath, astring, uuseg]- install base-bytes base [required by ocp-indent]- 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 ocp-indent 1.8.1 [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.27.0 [required by ocamlformat]- install ocamlformat 0.27.0===== 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.1.3.0] found in cache[csexp.1.5.2] found in cache[dune-build-info.3.18.2] found in cache[dune-configurator.3.18.2] found in cache[either.1.0.0] found in cache[fix.20250428] found in cache[fpath.0.7.3] found in cache[menhir.20240715] found in cache[menhirCST.20240715] found in cache[menhirLib.20240715] found in cache[menhirSdk.20240715] found in cache[ocaml-version.4.0.0] found in cache[ocamlbuild.0.16.1] found in cache[ocamlfind.1.9.8] found in cache[ocamlformat.0.27.0] found in cache[ocamlformat-lib.0.27.0] found in cache[ocp-indent.1.8.1] 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.0.8] 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.1.3.0-> installed either.1.0.0-> installed fix.20250428-> installed menhirCST.20240715-> installed menhirLib.20240715-> installed menhirSdk.20240715-> installed ocaml-version.4.0.0-> installed re.1.11.0-> installed sexplib0.v0.14.0-> installed dune-build-info.3.18.2-> installed dune-configurator.3.18.2-> installed ocamlfind.1.9.8-> installed base-bytes.base-> installed ocamlbuild.0.16.1-> installed ocp-indent.1.8.1-> installed base.v0.14.3-> installed topkg.1.0.8-> installed stdio.v0.14.0-> installed uutf.1.0.4-> installed astring.0.8.5-> installed fpath.0.7.3-> installed menhir.20240715-> installed uucp.15.0.0-> installed uuseg.15.0.0-> installed ocamlformat-lib.0.27.0-> installed ocamlformat.0.27.0Done.<><> ocp-indent.1.8.1 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 environment2025-05-21 10:47.00 ---> saved as "5e3a5282f655843df8e02a2497598f2918acc59345107286c51ff04d386b492b"/src: (copy (src .) (dst /src/))2025-05-21 10:47.00 ---> saved as "b939e02e0b5187a0da71347d8df79d48ead5ee35a90b67d601af18db28930e5c"/src: (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)"))File "arrayjit/bin/dune", line 6, characters 21-34:6 | (pps ppx_minidebug ppx_sexp_conv))^^^^^^^^^^^^^Error: Library "ppx_sexp_conv" not found.-> required by _build/default/arrayjit/bin/read_config.exe-> required by %{dep:../../arrayjit/bin/read_config.exe} at test/dune:25-> required by _build/default/test/config/ocannl_backend.txt-> required by %{read:config/ocannl_backend.txt} at test/dune:44-> required by Computing directory contents of _build/default/testFile "arrayjit/bin/dune", line 6, characters 7-20:6 | (pps ppx_minidebug ppx_sexp_conv))^^^^^^^^^^^^^Error: Library "ppx_minidebug" not found.-> required by _build/default/arrayjit/bin/.merlin-conf/exe-read_config-> required by _build/default/arrayjit/bin/read_config.exe-> required by %{dep:../../arrayjit/bin/read_config.exe} at test/dune:25-> required by _build/default/test/config/ocannl_backend.txt-> required by %{read:config/ocannl_backend.txt} at test/dune:44-> required by Computing directory contents of _build/default/testFile "arrayjit/bin/dune", line 1, characters 0-0:diff --git a/_build/default/arrayjit/bin/dune b/_build/default/arrayjit/bin/.formatted/duneindex c96c606..a066be4 100644--- a/_build/default/arrayjit/bin/dune+++ b/_build/default/arrayjit/bin/.formatted/dune@@ -4,4 +4,4 @@(libraries utils)(preprocess(pps ppx_minidebug ppx_sexp_conv))- (modes exe))\ No newline at end of file+ (modes exe))File "arrayjit/bin/read_config.ml", line 1, characters 0-0:diff --git a/_build/default/arrayjit/bin/read_config.ml b/_build/default/arrayjit/bin/.formatted/read_config.mlindex 7e0ed33..a0e7afe 100644--- a/_build/default/arrayjit/bin/read_config.ml+++ b/_build/default/arrayjit/bin/.formatted/read_config.ml@@ -2,22 +2,18 @@ open Baseopen Stdiolet extract_config arg =- let prefixes = ["--read="; "--read-"; "--read_"] in+ let prefixes = [ "--read="; "--read-"; "--read_" ] inList.find_map prefixes ~f:(fun prefix ->- Option.map (String.chop_prefix arg ~prefix) ~f:(fun config -> config))+ Option.map (String.chop_prefix arg ~prefix) ~f:(fun config -> config))let () =- let config_opt =- Array.find_map Stdlib.Sys.argv ~f:extract_config- in+ let config_opt = Array.find_map Stdlib.Sys.argv ~f:extract_config inmatch config_opt with- | Some config ->+ | Some config -> (let value = Utils.get_global_arg ~default:"" ~arg_name:config inlet filename = "ocannl_" ^ config ^ ".txt" in- (try- Out_channel.write_all filename ~data:value;- printf "Wrote value of '%s' to %s\n" config filename- with exn ->- eprintf "Error writing to %s: %s\n" filename (Exn.to_string exn))- | None ->- printf "No --read=<config>, --read-<config>, or --read_<config> argument found.\n"+ try+ Out_channel.write_all filename ~data:value;+ printf "Wrote value of '%s' to %s\n" config filename+ with exn -> eprintf "Error writing to %s: %s\n" filename (Exn.to_string exn))+ | None -> printf "No --read=<config>, --read-<config>, or --read_<config> argument found.\n"File "arrayjit/lib/cc_backend.ml", line 1, characters 0-0:diff --git a/_build/default/arrayjit/lib/cc_backend.ml b/_build/default/arrayjit/lib/.formatted/cc_backend.mlindex 7e1200b..16382fa 100644--- a/_build/default/arrayjit/lib/cc_backend.ml+++ b/_build/default/arrayjit/lib/.formatted/cc_backend.ml@@ -89,6 +89,7 @@ let%diagn_sexp compile ~(name : string) bindings (lowered : Low_level.optimized)let use_host_memory = use_host_memorylet procs = [| lowered |]+let full_printf_support =not @@ Bool.of_string@@ Utils.get_global_arg ~default:"false" ~arg_name:"prefer_backend_uniformity"File "arrayjit/lib/lowered_backend_missing.ml", line 1, characters 0-0:diff --git a/_build/default/arrayjit/lib/lowered_backend_missing.ml b/_build/default/arrayjit/lib/.formatted/lowered_backend_missing.mlindex cb9affa..a5b0e8c 100644--- a/_build/default/arrayjit/lib/lowered_backend_missing.ml+++ b/_build/default/arrayjit/lib/.formatted/lowered_backend_missing.ml@@ -95,13 +95,15 @@ structfailwith @@ "Backend " ^ Config.name ^ " missing -- install the corresponding library"let static_properties =- Sexp.List [- Sexp.Atom (Config.name ^ "_missing");- Sexp.List [- Sexp.Atom "error";- Sexp.Atom ("Backend " ^ Config.name ^ " missing -- install the corresponding library")+ Sexp.List+ [+ Sexp.Atom (Config.name ^ "_missing");+ Sexp.List+ [+ Sexp.Atom "error";+ Sexp.Atom ("Backend " ^ Config.name ^ " missing -- install the corresponding library");+ ];]- ]let get_debug_info _stream =failwith @@ "Backend " ^ Config.name ^ " missing -- install the corresponding library"File "arrayjit/lib/indexing.ml", line 1, characters 0-0:diff --git a/_build/default/arrayjit/lib/indexing.ml b/_build/default/arrayjit/lib/.formatted/indexing.mlindex e18b678..1b2cd06 100644--- a/_build/default/arrayjit/lib/indexing.ml+++ b/_build/default/arrayjit/lib/.formatted/indexing.ml@@ -233,5 +233,6 @@ module Doc_helpers = structlet pp_axis_index idx =match idx with Iterator sym -> pp_symbol sym | Fixed_idx i -> PPrint.OCaml.int i- let pp_indices idcs = PPrint.separate (pp_comma ()) (Array.to_list idcs |> List.map ~f:pp_axis_index)+ let pp_indices idcs =+ PPrint.separate (pp_comma ()) (Array.to_list idcs |> List.map ~f:pp_axis_index)endFile "bin/micrograd_demo_logging.ml", line 1, characters 0-0:diff --git a/_build/default/bin/micrograd_demo_logging.ml b/_build/default/bin/.formatted/micrograd_demo_logging.mlindex ff983c1..bd11af4 100644--- a/_build/default/bin/micrograd_demo_logging.ml+++ b/_build/default/bin/.formatted/micrograd_demo_logging.ml@@ -36,4 +36,4 @@ let () =Train.run step;Tensor.print ~with_code:false ~with_grad:false `Default g;Tensor.print ~with_code:false ~with_grad:true `Default a;- Tensor.print ~with_code:false ~with_grad:true `Default b\ No newline at end of file+ Tensor.print ~with_code:false ~with_grad:true `Default bFile "arrayjit/lib/schedulers.ml", line 1, characters 0-0:diff --git a/_build/default/arrayjit/lib/schedulers.ml b/_build/default/arrayjit/lib/.formatted/schedulers.mlindex 556961e..e497391 100644--- a/_build/default/arrayjit/lib/schedulers.ml+++ b/_build/default/arrayjit/lib/.formatted/schedulers.ml@@ -188,17 +188,21 @@ module Multicore (Backend : For_add_scheduler) :let suggested_num_streams _device = Domain.recommended_domain_count () - 2let static_properties =- Sexp.List [- Sexp.Atom "multicore_devices";- Sexp.List [- Sexp.Atom "device";- Sexp.List [- Sexp.List [Sexp.Atom "device_name"; Sexp.Atom "CPU"];- Sexp.List [Sexp.Atom "device_ordinal"; [%sexp_of: int] 0];- Sexp.List [Sexp.Atom "num_domains"; [%sexp_of: int] (Domain.recommended_domain_count ())];- ]+ Sexp.List+ [+ Sexp.Atom "multicore_devices";+ Sexp.List+ [+ Sexp.Atom "device";+ Sexp.List+ [+ Sexp.List [ Sexp.Atom "device_name"; Sexp.Atom "CPU" ];+ Sexp.List [ Sexp.Atom "device_ordinal"; [%sexp_of: int] 0 ];+ Sexp.List+ [ Sexp.Atom "num_domains"; [%sexp_of: int] (Domain.recommended_domain_count ()) ];+ ];+ ];]- ]let%track7_sexp cleanup_stream (stream : stream) : unit =(* Allow running in parallel. *)@@ -274,17 +278,20 @@ module Sync (Backend : For_add_scheduler) = structlet await _stream = ()let static_properties =- Sexp.List [- Sexp.Atom "sync_devices";- Sexp.List [- Sexp.Atom "device";- Sexp.List [- Sexp.List [Sexp.Atom "device_name"; Sexp.Atom "CPU"];- Sexp.List [Sexp.Atom "device_ordinal"; Sexp.Atom "0"];- Sexp.List [Sexp.Atom "threads"; Sexp.Atom "1"];- ]+ Sexp.List+ [+ Sexp.Atom "sync_devices";+ Sexp.List+ [+ Sexp.Atom "device";+ Sexp.List+ [+ Sexp.List [ Sexp.Atom "device_name"; Sexp.Atom "CPU" ];+ Sexp.List [ Sexp.Atom "device_ordinal"; Sexp.Atom "0" ];+ Sexp.List [ Sexp.Atom "threads"; Sexp.Atom "1" ];+ ];+ ];]- ](* let global_run_no = ref 0 *)let schedule_task _stream task = Ir.Task.run taskFile "bin/moons_benchmark.ml", line 1, characters 0-0:diff --git a/_build/default/bin/moons_benchmark.ml b/_build/default/bin/.formatted/moons_benchmark.mlindex 0f55116..1bcb12e 100644--- a/_build/default/bin/moons_benchmark.ml+++ b/_build/default/bin/.formatted/moons_benchmark.ml@@ -264,7 +264,8 @@ let _mem_benchmarks =~f:(fun batch_size ->List.concat_map [ 0; (* 1; 2; *) 3 ] ~f:(fun inlining_cutoff ->List.concat_map [ (* 1; 3; *) 7 (* *) ] ~f:(fun seed ->- List.concat_map [ (* "gccjit" ; *) "multicore_cc"; "cuda" ] ~f:(fun backend_name ->+ List.concat_map [ (* "gccjit" ; *) "multicore_cc"; "cuda" ]+ ~f:(fun backend_name ->List.concat_map [ (* CDSL.double; *) CDSL.single; CDSL.half ]~f:(fun value_prec ->[File "arrayjit/lib/utils.ml", line 1, characters 0-0:diff --git a/_build/default/arrayjit/lib/utils.ml b/_build/default/arrayjit/lib/.formatted/utils.mlindex df9e071..ed2184f 100644--- a/_build/default/arrayjit/lib/utils.ml+++ b/_build/default/arrayjit/lib/.formatted/utils.ml@@ -644,18 +644,20 @@ let input_line chan =let capture_stdout_logs arg =if never_capture_stdout () || not (debug_log_from_routines ()) then arg ()else (- Stdlib.flush Stdlib.stdout; (* Ensure previous stdout is flushed *)+ Stdlib.flush Stdlib.stdout;+ (* Ensure previous stdout is flushed *)let original_stdout_fd = Unix.dup Unix.stdout inlet old_advance_captured_logs_val = !advance_captured_logs inadvance_captured_logs := None;let pipe_read_fd, pipe_write_fd = Unix.pipe ~cloexec:true () inUnix.dup2 pipe_write_fd Unix.stdout;+(* pipe_write_fd is now the new Stdlib.stdout, do not close it in parent until done. *)(* The reader domain will close pipe_read_fd. *)-let collected_logs_ref = ref [] in- let passthrough_lines_ref = ref [] in (* Buffer for non-log lines *)+ let passthrough_lines_ref = ref [] in+ (* Buffer for non-log lines *)let reader_domain_failed = Atomic.make false inlet reader_domain_logic () =@@ -673,8 +675,9 @@ let capture_stdout_logs arg =| exn ->Atomic.set reader_domain_failed true;Stdio.eprintf "Exception in stdout reader domain: %s\\nBacktrace:\\n%s\\n%!"- (Exn.to_string exn) (Stdlib.Printexc.get_backtrace ());- Stdlib.close_in_noerr in_channel (* This closes pipe_read_fd *);+ (Exn.to_string exn)+ (Stdlib.Printexc.get_backtrace ());+ Stdlib.close_in_noerr in_channel (* This closes pipe_read_fd *);Stdlib.Printexc.raise_with_backtrace exn (Stdlib.Printexc.get_raw_backtrace ())in@@ -684,14 +687,17 @@ let capture_stdout_logs arg =try arg ()with exn ->(* Ensure cleanup even if arg() fails *)- Stdlib.flush Stdlib.stdout; (* Flush to pipe_write_fd *)- Unix.close pipe_write_fd; (* Signal EOF to reader domain *)+ Stdlib.flush Stdlib.stdout;+ (* Flush to pipe_write_fd *)+ Unix.close pipe_write_fd;+ (* Signal EOF to reader domain *)(try Domain.join reader_domainwith e ->Stdio.eprintf "Exception while joining reader domain (arg failed): %s\\n%!"(Exn.to_string e));-- Unix.dup2 original_stdout_fd Unix.stdout; (* Restore stdout *)++ Unix.dup2 original_stdout_fd Unix.stdout;+ (* Restore stdout *)Unix.close original_stdout_fd;advance_captured_logs := old_advance_captured_logs_val;@@ -700,18 +706,21 @@ let capture_stdout_logs arg =List.iter (List.rev !captured_log_processors)~f:(fun { log_processor_prefix; process_logs } ->process_logs- @@ List.filter_map captured_output ~f:(String.chop_prefix ~prefix:log_processor_prefix));+ @@ List.filter_map captured_output+ ~f:(String.chop_prefix ~prefix:log_processor_prefix));(* Print passthrough lines even if arg() failed, if reader was ok *)- List.iter (List.rev !passthrough_lines_ref) ~f:Stdlib.print_endline;- );- captured_log_processors := []; (* Clear processors *)+ List.iter (List.rev !passthrough_lines_ref) ~f:Stdlib.print_endline);+ captured_log_processors := [];+ (* Clear processors *)Stdlib.Printexc.raise_with_backtrace exn (Stdlib.Printexc.get_raw_backtrace ())in(* Normal path: arg() completed successfully *)- Stdlib.flush Stdlib.stdout; (* Flush to pipe_write_fd *)- Unix.close pipe_write_fd; (* Signal EOF to reader domain *)+ Stdlib.flush Stdlib.stdout;+ (* Flush to pipe_write_fd *)+ Unix.close pipe_write_fd;+ (* Signal EOF to reader domain *)(try Domain.join reader_domainwith e ->Stdio.eprintf "Exception while joining reader domain (arg succeeded): %s\\n%!"@@ -719,7 +728,8 @@ let capture_stdout_logs arg =if Atomic.get reader_domain_failed thenStdlib.Printexc.raise_with_backtrace e (Stdlib.Printexc.get_raw_backtrace ()));- Unix.dup2 original_stdout_fd Unix.stdout; (* Restore stdout *)+ Unix.dup2 original_stdout_fd Unix.stdout;+ (* Restore stdout *)Unix.close original_stdout_fd;advance_captured_logs := old_advance_captured_logs_val;@@ -731,14 +741,13 @@ let capture_stdout_logs arg =List.iter (List.rev !captured_log_processors)~f:(fun { log_processor_prefix; process_logs } ->process_logs- @@ List.filter_map captured_output ~f:(String.chop_prefix ~prefix:log_processor_prefix)))+ @@ List.filter_map captured_output+ ~f:(String.chop_prefix ~prefix:log_processor_prefix)))~finally:(fun () -> captured_log_processors := []);-+(* Then print passthrough lines to the now-restored original stdout *)- List.iter (List.rev !passthrough_lines_ref) ~f:Stdlib.print_endline;- ) else (- captured_log_processors := []; (* Clear processors if reader failed *)- );+ List.iter (List.rev !passthrough_lines_ref) ~f:Stdlib.print_endline)+ else captured_log_processors := [] (* Clear processors if reader failed *);result)let log_debug_routine_logs ~log_contents ~stream_name =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 22025-05-21 10:47.02: Job failed: Failed: Build failed