diff options
Diffstat (limited to 'build-aux/build-self.scm')
| -rw-r--r-- | build-aux/build-self.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm index 5b281c3bc9..87a45d94db 100644 --- a/build-aux/build-self.scm +++ b/build-aux/build-self.scm @@ -334,12 +334,13 @@ interface (FFI) of Guile.") (format (current-error-port) "Computing Guix derivation for '~a'... " system) - (let loop ((spin spin)) - (display (string-append "\b" (car spin)) - (current-error-port)) - (force-output (current-error-port)) - (sleep 1) - (loop (cdr spin)))) + (when (isatty? (current-error-port)) + (let loop ((spin spin)) + (display (string-append "\b" (car spin)) + (current-error-port)) + (force-output (current-error-port)) + (sleep 1) + (loop (cdr spin))))) (match (command-line) ((_ source system version protocol-version) @@ -420,7 +421,7 @@ files." (error "build program failed" (list build status))) ((? derivation-path? drv) (mbegin %store-monad - (return (newline (current-output-port))) + (return (newline (current-error-port))) ((store-lift add-temp-root) drv) (return (read-derivation-from-file drv)))) ("#f" |