diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-01-08 13:31:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-08 18:38:15 +0100 |
| commit | c108c46fb40ae85be609133f6706cfb79266ded3 (patch) | |
| tree | 98a1d4f397f82377754dce4a4c31e3211ed988ba | |
| parent | fefcb122ac21b58985f1feba5174d0d9bf96af66 (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.scm | 13 |
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) |