[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#64931] [PATCH v3] guix: pull: Also print the name of the branch.
From: |
attila . lendvai |
Subject: |
[bug#64931] [PATCH v3] guix: pull: Also print the name of the branch. |
Date: |
Mon, 26 Feb 2024 20:03:12 +0100 |
From: Attila Lendvai <attila@lendvai.name>
* guix/channels.scm (latest-channel-instances): Also print the branch name,
when it's not #f.
---
v3: it has developed conflicts while waiting in the queue. rebased.
guix/channels.scm | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/guix/channels.scm b/guix/channels.scm
index 1b07eb52210..2f6fabea998 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -544,9 +544,15 @@ (define* (latest-channel-instances store channels
(loop rest previous-channels instances)
(begin
(format (current-error-port)
- (G_ "Updating channel '~a' from Git repository at
'~a'...~%")
+ (G_ "Updating channel '~a' from Git repository at \
+ '~a'~:[~;, branch '~a'~]...~%")
(channel-name channel)
- (channel-url channel))
+ (channel-url channel)
+ ;; Only conditionally print the branch name. When
+ ;; e.g. --commit is provided for channel-list in (guix
+ ;; scripts pull), then the branch is set to #f.
+ (channel-branch channel)
+ (channel-branch channel))
(let* ((current (current-commit (channel-name channel)))
(instance
(latest-channel-instance store channel
base-commit: bf17a01e06abc100651ed643f2d5c7fea07d37ba
--
2.41.0
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bug#64931] [PATCH v3] guix: pull: Also print the name of the branch.,
attila . lendvai <=