ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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 @@ (define-module (guix build guile-build-system)
#:use-module (ice-9 popen)
#:use-module (ice-9 rdelim)
#:use-module (ice-9 regex)
#:use-module (ice-9 format)
#:use-module (guix build utils)
#:export (target-guile-effective-version
%standard-phases
@ -128,8 +129,8 @@ (define (fork-and-run-command command)
(define* (report-build-progress total completed
#:optional (log-port (current-error-port)))
"Report that COMPLETED out of TOTAL files have been completed."
(format log-port "compiling...\t~5,1f% of ~d files~%" ;FIXME: i18n
(* 100. (/ completed total)) total)
(format log-port "[~2d/~2d] Compiling...~%"
completed total)
(force-output log-port))
(define* (build #:key outputs inputs native-inputs