guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00
Code Issues Releases Wiki Activity

Fix interactive checkout.

Browse source 
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:
Mathieu Othacehe 2020-11-24 17:56:48 +01:00
parent 053f92273a
commit e0f97e475f
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/cuirass/base.scm
View file

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