(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
(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)