aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-02-10 22:46:44 +0100
committerLudovic Courtès <ludo@gnu.org>2022-02-16 16:49:26 +0100
commit3bed628b3e22c2689621762143b56c2745212b5d (patch)
treea725bca0c1478002aaabcb0f6534a33902f918dd
parentde65fd92d5724ace1cbc49f20ad49bffdc64d09d (diff)
downloadguix-3bed628b3e22c2689621762143b56c2745212b5d.tar
guix-3bed628b3e22c2689621762143b56c2745212b5d.tar.gz
status: Do not print .drv file names for grafts.
With this change, "guix build vim-full" prints: applying 15 grafts for vim-full-8.2.4306 ... instead of showing /gnu/store/…-vim-full-8.2.4306.drv. * guix/status.scm (print-build-event): In the 'graft' case, print just the "package name" part of DRV.
-rw-r--r--guix/status.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/status.scm b/guix/status.scm
index fba28765df..868f6d6296 100644
--- a/guix/status.scm
+++ b/guix/status.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
@@ -483,7 +483,9 @@ substitutes being downloaded."
(format port (info (N_ "applying ~a graft for ~a ..."
"applying ~a grafts for ~a ..."
count))
- count drv)))
+ count
+ (string-drop-right (store-path-package-name drv)
+ (string-length ".drv")))))
('profile
(let ((count (match (assq-ref properties 'profile)
(#f 0)