nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

build-self: Spin only on TTYs. 

* build-aux/build-self.scm (build-program): Spin only when 'isatty?'
returns true.
This commit is contained in:
Ludovic Courtès 2019-01-08 13:31:54 +01:00
parent fefcb122ac
commit c108c46fb4
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
build-aux/build-self.scm
View File

@ -334,12 +334,13 @@ interface (FFI) of Guile.")
(format (current-error-port) (format (current-error-port)
"Computing Guix derivation for '~a'... " "Computing Guix derivation for '~a'... "
system) system)
(let loop ((spin spin)) (when (isatty? (current-error-port))
(display (string-append "\b" (car spin)) (let loop ((spin spin))
(current-error-port)) (display (string-append "\b" (car spin))
(force-output (current-error-port)) (current-error-port))
(sleep 1) (force-output (current-error-port))
(loop (cdr spin)))) (sleep 1)
(loop (cdr spin)))))
(match (command-line) (match (command-line)
((_ source system version protocol-version) ((_ source system version protocol-version)