aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-26 12:26:41 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-26 13:07:19 +0100
commit260eae789369170cad76ac0ef94fe9ae5af44ce0 (patch)
tree67f0987c99aba48e626f41902460319766a31785
parente7570ec2da04af83eba695ded92eb824172b15c3 (diff)
downloadguix-260eae789369170cad76ac0ef94fe9ae5af44ce0.tar
guix-260eae789369170cad76ac0ef94fe9ae5af44ce0.tar.gz
status: Display synthetic information about profiles being built.
* guix/status.scm (print-build-event): Add 'profile case. * guix/scripts/package.scm (build-and-use-profile): Remove now redundant message.
-rw-r--r--guix/scripts/package.scm4
-rw-r--r--guix/status.scm10
2 files changed, 9 insertions, 5 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index b5d16acec0..110d4f2977 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -161,10 +161,6 @@ hooks\" run when building the profile."
(switch-symlinks profile (basename name))
(unless (string=? profile %current-profile)
(register-gc-root store name))
- (format #t (N_ "~a package in profile~%"
- "~a packages in profile~%"
- count)
- count)
(display-search-path-hint entries profile)))
(warn-about-disk-space profile))))))
diff --git a/guix/status.scm b/guix/status.scm
index cbea4151f2..4b2edc2f3c 100644
--- a/guix/status.scm
+++ b/guix/status.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
@@ -476,6 +476,14 @@ addition to build events."
"applying ~a grafts for ~a..."
count))
count drv)))
+ ('profile
+ (let ((count (match (assq-ref properties 'profile)
+ (#f 0)
+ (lst (or (assq-ref lst 'count) 0)))))
+ (format port (info (N_ "building profile with ~a package..."
+ "building profile with ~a packages..."
+ count))
+ count)))
('profile-hook
(let ((hook-type (assq-ref properties 'hook)))
(or (and=> (hook-message hook-type)