From 87ad259dba7de38b6e3ab954cd7b2f655358d877 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 17 Sep 2017 21:49:28 +0200 Subject: base: Show feedback when build has finished. * 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." -- cgit v1.2.3