Browse Source

build-self: Spin only on TTYs.

* build-aux/build-self.scm (build-program): Spin only when 'isatty?'
returns true.
gn-latest-20200428
Ludovic Courtès 3 years ago
parent
commit
c108c46fb4
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 13
      build-aux/build-self.scm

13
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)

Loading…
Cancel
Save