mirror of
git://git.savannah.gnu.org/guix/guix-cuirass.git
synced 2023-12-14 06:03:04 +01:00
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.
This commit is contained in:
parent
053f92273a
commit
e0f97e475f
|
@ -734,8 +734,10 @@ by PRODUCT-SPECS."
|
|||
(log-message "fetching input '~a' of spec '~a'"
|
||||
(assq-ref input #:name)
|
||||
(assq-ref spec #:name))
|
||||
;; 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)))))
|
||||
#:writable-copy? (compile? input))))))
|
||||
inputs))
|
||||
(results (map %non-blocking thunks)))
|
||||
(map (lambda (checkout)
|
||||
|
|
Loading…
Reference in a new issue