guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

03/10: build-system/guile: Display progress report as expected by (guix


From: guix-commits
Subject: 03/10: build-system/guile: Display progress report as expected by (guix status).
Date: Sun, 2 Jun 2019 16:21:25 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit e006f7493feb35044f4965181c9199d9fdde1843
Author: Ludovic Court├Ęs <address@hidden>
Date:   Sun Jun 2 21:07:24 2019 +0200

    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).
---
 guix/build/guile-build-system.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/build/guile-build-system.scm 
b/guix/build/guile-build-system.scm
index eb7a918..32a431d 100644
--- a/guix/build/guile-build-system.scm
+++ b/guix/build/guile-build-system.scm
@@ -25,6 +25,7 @@
   #: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 @@ Raise an error if one of the processes exit with non-zero."
 (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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]