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

build-system/guile: Display progress report as expected by (guix status). 

* guix/build/guile-build-system.scm (report-build-progress): Use a
format string suitable for (guix status).
This commit is contained in:
Ludovic Courtès 2019-06-02 21:07:24 +02:00
parent 30eb738366
commit e006f7493f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/build/guile-build-system.scm
View File

@ -25,6 +25,7 @@
#:use-module (ice-9 popen) #:use-module (ice-9 popen)
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:use-module (ice-9 format)
#:use-module (guix build utils) #:use-module (guix build utils)
#:export (target-guile-effective-version #:export (target-guile-effective-version
%standard-phases %standard-phases
@ -128,8 +129,8 @@ Raise an error if one of the processes exit with non-zero."
(define* (report-build-progress total completed (define* (report-build-progress total completed
#:optional (log-port (current-error-port))) #:optional (log-port (current-error-port)))
"Report that COMPLETED out of TOTAL files have been completed." "Report that COMPLETED out of TOTAL files have been completed."
(format log-port "compiling...\t~5,1f% of ~d files~%" ;FIXME: i18n (format log-port "[~2d/~2d] Compiling...~%"
(* 100. (/ completed total)) total) completed total)
(force-output log-port)) (force-output log-port))
(define* (build #:key outputs inputs native-inputs (define* (build #:key outputs inputs native-inputs