diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-11-26 22:29:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-11-28 10:39:58 +0100 |
| commit | af1f1c38fbd5cb9e11d0e2fff1d62a7d6d5b8b59 (patch) | |
| tree | 6c5c3d9dc174996ca309d662d08a485d4c7ba5d4 | |
| parent | 64fd1c01bc6f1be6ffcafc08789d5dafb9850c2e (diff) | |
| download | patches-af1f1c38fbd5cb9e11d0e2fff1d62a7d6d5b8b59.tar patches-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.scm | 14 |
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?))) |