From: Jan Nieuwenhuizen <janneke@gnu.org>
To: 28488@debbugs.gnu.org
Subject: [bug#28488] [PATCH 3/3] base: Show feedback when build has finished.
Date: Sun, 17 Sep 2017 22:11:56 +0200 [thread overview]
Message-ID: <20170917201157.9802-4-janneke@gnu.org> (raw)
In-Reply-To: <20170917201157.9802-1-janneke@gnu.org>
* src/cuirass/base.scm (build-packages): Print some feedback when derivations
have been built.
---
src/cuirass/base.scm | 17 ++++++++++++++---
1 file changed, 14 insertions(+), 3 deletions(-)
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 1711c30..d1c8282 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -35,6 +35,7 @@
#:use-module (ice-9 threads)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-19)
+ #:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:export (;; Procedures.
@@ -218,13 +219,15 @@ directory and the sha1 of the top level commit in this directory."
(#:timestamp . ,cur-time)
(#:starttime . ,cur-time)
(#:stoptime . ,cur-time))))
- (db-add-build db build))
- build))
+ (db-add-build db build)
+ build)))
;; Pass all the jobs at once so we benefit from as much parallelism as
;; possible (we must be using #:keep-going? #t). Swallow build logs (the
;; daemon keeps them anyway), and swallow build errors.
(guard (c ((nix-protocol-error? c) #t))
+ (format #t "load-path=~s\n" %load-path)
+ (format #t "load-compiled-path=~s\n" %load-compiled-path)
(format #t "building ~a derivations...~%" (length jobs))
(parameterize ((current-build-output-port (%make-void-port "w")))
(build-derivations store
@@ -235,7 +238,15 @@ directory and the sha1 of the top level commit in this directory."
;; Register the results in the database.
;; XXX: The 'build-derivations' call is blocking so we end updating the
;; database potentially long after things have been built.
- (map register jobs))
+ (let* ((results (map register jobs))
+ (status (map (cut assq-ref <> #:status) results))
+ (success (length (filter zero? status)))
+ (outputs (map (cut assq-ref <> #:outputs) results))
+ (outs (filter-map (cut assoc-ref <> "out") outputs))
+ (fail (- (length jobs) success)))
+ (format #t "outputs:\n~a\n" (string-join outs "\n"))
+ (format #t "success: ~a, fail: ~a\n" success fail)
+ results))
(define (process-specs db jobspecs)
"Evaluate and build JOBSPECS and store results in DB."
--
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
next prev parent reply other threads:[~2017-09-17 20:14 UTC|newest]
Thread overview: 22+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-09-17 20:11 [bug#28484] Some steps and questions for Cuirass Jan Nieuwenhuizen
2017-09-17 20:11 ` [bug#28485] [PATCH 1/3] base: Make working copy writable Jan Nieuwenhuizen
[not found] ` <handler.28485.B.1505679193775.ack@debbugs.gnu.org>
2017-09-18 15:46 ` bug#28485: Acknowledgement ([PATCH 1/3] base: Make working copy writable.) Jan Nieuwenhuizen
2017-09-17 20:11 ` [bug#28486] [PATCH 2/3] gnu-system: Accept subset with list of package names Jan Nieuwenhuizen
[not found] ` <handler.28486.B.1505679194784.ack@debbugs.gnu.org>
2017-09-18 15:45 ` bug#28486: Acknowledgement ([PATCH 2/3] gnu-system: Accept subset with list of package names.) Jan Nieuwenhuizen
2017-09-17 20:11 ` Jan Nieuwenhuizen [this message]
[not found] ` <handler.28488.B.1505679198802.ack@debbugs.gnu.org>
2017-09-18 15:48 ` bug#28488: Acknowledgement ([PATCH 3/3] base: Show feedback when build has finished.) Jan Nieuwenhuizen
2017-09-17 20:11 ` [bug#28487] [PATCH] cuirass: Add gnu-system build spec Jan Nieuwenhuizen
2017-09-26 8:18 ` Ludovic Courtès
2017-09-26 17:56 ` Jan Nieuwenhuizen
2017-09-26 18:05 ` Jan Nieuwenhuizen
2017-09-26 20:29 ` Ludovic Courtès
2017-09-27 18:55 ` Jan Nieuwenhuizen
2017-09-27 19:45 ` Ludovic Courtès
2017-09-27 20:32 ` Jan Nieuwenhuizen
2017-09-27 20:52 ` Jan Nieuwenhuizen
2017-09-28 8:26 ` Ludovic Courtès
2017-09-28 15:41 ` bug#28487: " Jan Nieuwenhuizen
2017-09-28 8:27 ` [bug#28487] " Ludovic Courtès
2017-09-28 16:04 ` Jan Nieuwenhuizen
2017-09-18 11:51 ` [bug#28484] Some steps and questions for Cuirass Mathieu Othacehe
2017-09-18 15:44 ` bug#28484: " Jan Nieuwenhuizen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20170917201157.9802-4-janneke@gnu.org \
--to=janneke@gnu.org \
--cc=28488@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).