summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-01-08 13:31:54 +0100
committerLudovic Courtès <ludo@gnu.org>2019-01-08 18:38:15 +0100
commitc108c46fb40ae85be609133f6706cfb79266ded3 (patch)
tree98a1d4f397f82377754dce4a4c31e3211ed988ba
parentfefcb122ac21b58985f1feba5174d0d9bf96af66 (diff)
build-self: Spin only on TTYs.
* build-aux/build-self.scm (build-program): Spin only when 'isatty?' returns true.
-rw-r--r--build-aux/build-self.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index c1a253dc87..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)