diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-11-24 17:56:48 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-11-25 10:46:03 +0100 |
| commit | e0f97e475f6d9d832eb67b3576f2c43a0aff65b4 (patch) | |
| tree | 887b5533afd929dc5f3d97514a80be1ef1aee857 | |
| parent | 053f92273a09784cf3a9ee3ac0c79a30a42c6df4 (diff) | |
| download | cuirass-e0f97e475f6d9d832eb67b3576f2c43a0aff65b4.tar cuirass-e0f97e475f6d9d832eb67b3576f2c43a0aff65b4.tar.gz | |
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.
| -rw-r--r-- | src/cuirass/base.scm | 6 |
1 files 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) |