diff --git a/guix/status.scm b/guix/status.scm index 45e441eac53daaf6d548e0e14bf7ad404ab97aaf..4b2edc2f3c38444dc477b54c2df0a7e2c11afd2e 100644 --- a/guix/status.scm +++ b/guix/status.scm @@ -472,16 +472,16 @@ (define erase-current-line* (let ((count (match (assq-ref properties 'graft) (#f 0) (lst (or (assq-ref lst 'count) 0))))) - (format port (info (N_ "applying ~a graft for ~a ..." - "applying ~a grafts for ~a ..." + (format port (info (N_ "applying ~a graft for ~a..." + "applying ~a grafts for ~a..." count)) count drv))) ('profile (let ((count (match (assq-ref properties 'profile) (#f 0) (lst (or (assq-ref lst 'count) 0))))) - (format port (info (N_ "building profile with ~a package ..." - "building profile with ~a packages ..." + (format port (info (N_ "building profile with ~a package..." + "building profile with ~a packages..." count)) count))) ('profile-hook @@ -525,7 +525,7 @@ (define erase-current-line* (newline port))) (('download-started item uri _ ...) (erase-current-line*) - (format port (info (G_ "downloading from ~a ...")) uri) + (format port (info (G_ "downloading from ~a...")) uri) (newline port)) (('download-progress item uri (= string->number size)