From 260eae789369170cad76ac0ef94fe9ae5af44ce0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Mar 2020 12:26:41 +0100 Subject: 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. --- guix/scripts/package.scm | 4 ---- guix/status.scm | 10 +++++++++- 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 +;;; Copyright © 2017, 2018, 2019, 2020 Ludovic Courtès ;;; Copyright © 2018, 2019 Ricardo Wurmus ;;; ;;; 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) -- cgit v1.2.3