mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 13:10:33 +02:00
cuirass: Write jobs with ‘pretty-print’.
* 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
This commit is contained in:
@@ -30,6 +30,7 @@
|
|||||||
(guix ui)
|
(guix ui)
|
||||||
((guix ui) #:select (build-notifier))
|
((guix ui) #:select (build-notifier))
|
||||||
(ice-9 match)
|
(ice-9 match)
|
||||||
|
(ice-9 pretty-print)
|
||||||
(ice-9 threads))
|
(ice-9 threads))
|
||||||
|
|
||||||
(define %top-srcdir
|
(define %top-srcdir
|
||||||
@@ -99,7 +100,7 @@
|
|||||||
(close-inferior inferior)
|
(close-inferior inferior)
|
||||||
(call-with-output-file file
|
(call-with-output-file file
|
||||||
(lambda (port)
|
(lambda (port)
|
||||||
(write jobs port)))))))
|
(pretty-print jobs port)))))))
|
||||||
%cuirass-supported-systems
|
%cuirass-supported-systems
|
||||||
inferiors)))))))
|
inferiors)))))))
|
||||||
(x
|
(x
|
||||||
|
|||||||
Reference in New Issue
Block a user