aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/cuirass/base.scm6
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)