[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: Fix interactive checkout.
From: |
Mathieu Othacehe |
Subject: |
branch master updated: Fix interactive checkout. |
Date: |
Wed, 25 Nov 2020 04:47:47 -0500 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch master
in repository guix-cuirass.
The following commit(s) were added to refs/heads/master by this push:
new e0f97e4 Fix interactive checkout.
e0f97e4 is described below
commit e0f97e475f6d9d832eb67b3576f2c43a0aff65b4
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Nov 24 17:56:48 2020 +0100
Fix interactive checkout.
This is a work-around: https://issues.guix.gnu.org/44742.
* src/cuirass/base.scm (fetch-inputs): Set "current-error-port" parameter
to a
void port to prevent the fetch progression bar to appear.
---
src/cuirass/base.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 1966ad6..c3ce900 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -734,8 +734,10 @@ by PRODUCT-SPECS."
(log-message "fetching input '~a' of spec '~a'"
(assq-ref input #:name)
(assq-ref spec #:name))
- (fetch-input store input
- #:writable-copy? (compile? input)))))
+ ;; XXX: Work around: https://issues.guix.gnu.org/44742.
+ (parameterize ((current-error-port (%make-void-port "rw+")))
+ (fetch-input store input
+ #:writable-copy? (compile? input))))))
inputs))
(results (map %non-blocking thunks)))
(map (lambda (checkout)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: Fix interactive checkout.,
Mathieu Othacehe <=