[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/07: status: Report grafting derivations specially.
From: |
guix-commits |
Subject: |
03/07: status: Report grafting derivations specially. |
Date: |
Wed, 28 Nov 2018 04:40:18 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit af1f1c38fbd5cb9e11d0e2fff1d62a7d6d5b8b59
Author: Ludovic Courtès <address@hidden>
Date: Mon Nov 26 22:29:29 2018 +0100
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.
---
guix/status.scm | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/guix/status.scm b/guix/status.scm
index 2ceb567..868bfdc 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?)))
- branch master updated (01e7ca5 -> e91152e), guix-commits, 2018/11/28
- 03/07: status: Report grafting derivations specially.,
guix-commits <=
- 02/07: grafts: Record metadata as derivation properties., guix-commits, 2018/11/28
- 01/07: derivations: Add properties., guix-commits, 2018/11/28
- 04/07: ui: 'show-what-to-build' reports grafts separately., guix-commits, 2018/11/28
- 06/07: channels: Add 'checkout->channel-instance'., guix-commits, 2018/11/28
- 07/07: guix hash: Fix version and help messages, guix-commits, 2018/11/28
- 05/07: inferior: Add 'inferior-eval-with-store'., guix-commits, 2018/11/28