From 8476c5bd8e4ed06dc287a5292354e29c14b7adf8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 19 Mar 2026 17:22:25 +0100
Subject: [PATCH] =?UTF-8?q?cuirass:=20Write=20jobs=20with=20=E2=80=98prett?=
 =?UTF-8?q?y-print=E2=80=99.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* build-aux/cuirass/evaluate.scm <top level>: Use ‘pretty-print’ to write the
jobs.

Change-Id: Idf751ddfd133717d390e2295a229e8308d906dc7
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #7222
---
 build-aux/cuirass/evaluate.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/build-aux/cuirass/evaluate.scm b/build-aux/cuirass/evaluate.scm
index 88b1117b43..0c3f1649df 100644
--- a/build-aux/cuirass/evaluate.scm
+++ b/build-aux/cuirass/evaluate.scm
@@ -30,6 +30,7 @@
              (guix ui)
              ((guix ui) #:select (build-notifier))
              (ice-9 match)
+             (ice-9 pretty-print)
              (ice-9 threads))
 
 (define %top-srcdir
@@ -99,7 +100,7 @@
                       (close-inferior inferior)
                       (call-with-output-file file
                         (lambda (port)
-                          (write jobs port)))))))
+                          (pretty-print jobs port)))))))
               %cuirass-supported-systems
               inferiors)))))))
   (x