me/guix
Archived
1
0
Fork 0
Code Activity

status: Display synthetic information about profiles being built.

Browse source 
* guix/status.scm (print-build-event): Add 'profile case.
* guix/scripts/package.scm (build-and-use-profile): Remove now redundant
message.
This commit is contained in:
Ludovic Courtès 2020-03-26 12:26:41 +01:00
parent e7570ec2da
commit 260eae7893
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/package.scm
View file

@ -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))))))

10
guix/status.scm
View file

@ -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)