From c108c46fb40ae85be609133f6706cfb79266ded3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 8 Jan 2019 13:31:54 +0100 Subject: [PATCH] build-self: Spin only on TTYs. * build-aux/build-self.scm (build-program): Spin only when 'isatty?' returns true. --- build-aux/build-self.scm | 13 +++++++------ 1 file 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)