aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-11-26 22:29:29 +0100
committerLudovic Courtès <ludo@gnu.org>2018-11-28 10:39:58 +0100
commitaf1f1c38fbd5cb9e11d0e2fff1d62a7d6d5b8b59 (patch)
tree6c5c3d9dc174996ca309d662d08a485d4c7ba5d4
parent64fd1c01bc6f1be6ffcafc08789d5dafb9850c2e (diff)
downloadguix-af1f1c38fbd5cb9e11d0e2fff1d62a7d6d5b8b59.tar
guix-af1f1c38fbd5cb9e11d0e2fff1d62a7d6d5b8b59.tar.gz
status: Report grafting derivations specially.
* guix/status.scm (print-build-event): In 'build-started' event handler, check the properties of DRV and handle 'graft' derivations specially.
-rw-r--r--guix/status.scm14
1 files changed, 13 insertions, 1 deletions
diff --git a/guix/status.scm b/guix/status.scm
index 2ceb56788a..868bfdca21 100644
--- a/guix/status.scm
+++ b/guix/status.scm
@@ -325,7 +325,19 @@ addition to build events."
(display "\r" port)) ;erase the spinner
(match event
(('build-started drv . _)
- (format port (info (G_ "building ~a...")) drv)
+ (let ((properties (derivation-properties
+ (read-derivation-from-file drv))))
+ (match (assq-ref properties 'type)
+ ('graft
+ (let ((count (match (assq-ref properties 'graft)
+ (#f 0)
+ (lst (or (assq-ref lst 'count) 0)))))
+ (format port (info (N_ "applying ~a graft for ~a..."
+ "applying ~a grafts for ~a..."
+ count))
+ count drv)))
+ (_
+ (format port (info (G_ "building ~a...")) drv))))
(newline port))
(('build-succeeded drv . _)
(when (or print-log? (not (extended-build-trace-supported?)))