[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]

From: Ludovic Courtès
Date: Tue, 23 Jan 2018 12:31:58 -0500 (EST)

branch: master
commit f1b3a12c1df88cb61de0a1054ef0c9ce40c07958
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jan 23 18:31:35 2018 +0100

    base: Use 'log-message' some more.
    * src/cuirass/base.scm (build-packages): Use 'log-message' instead of
 src/cuirass/base.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index e08df58..5e5422b 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -324,9 +324,9 @@ updating DB accordingly."
   ;; 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))
+    (log-message "load-path=~s" %load-path)
+    (log-message "load-compiled-path=~s" %load-compiled-path)
+    (log-message "building ~a derivations" (length jobs))
     (parameterize ((current-build-output-port
                     (build-event-output-port (lambda (event status)
                                                (handle-build-event db event))
@@ -344,8 +344,8 @@ updating DB accordingly."
          (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)
+    (log-message "outputs:\n~a" (string-join outs "\n"))
+    (log-message "success: ~a, fail: ~a" success fail)
 (define (prepare-git)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]