[debbugs-tracker] bug#28488: closed ([PATCH 3/3] base: Show feedback when build has finished.)

[GNU bug Tracking System]

Your message dated Mon, 18 Sep 2017 17:48:59 +0200
with message-id <address@hidden>
and subject line Re: bug#28488: Acknowledgement ([PATCH 3/3] base: Show 
feedback when build has finished.)
has caused the debbugs.gnu.org bug report #28488,
regarding [PATCH 3/3] base: Show feedback when build has finished.
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
28488: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=28488
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> [PATCH 3/3] base: Show feedback when build has finished.
>
>
>
>
> Date: 
>
> Sun, 17 Sep 2017 22:11:56 +0200
>
>
>
>
> * 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 <address@hidden> | GNU LilyPond http://lilypond.org
> Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#28488: Acknowledgement ([PATCH 3/3] base: Show feedback when build has finished.)
>
>
>
>
> Date: 
>
> Mon, 18 Sep 2017 17:48:59 +0200
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux)
>
>
>
>
> GNU bug Tracking System writes:
>
> as discussed in other thread, pushed to guix-cuirass master as
> 87ad259dba7de38b6e3ab954cd7b2f655358d877
>
> janneke
>
> -- 
> Jan Nieuwenhuizen <address@hidden> | GNU LilyPond http://lilypond.org
> Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
>
>
> --- End Message ---