civodul pushed a commit to branch master
in repository guix.
commit c79c6e598ad48dfe1cd2d0d8e9d7d3c311a48f5d
Author: Ludovic Courtès <[email protected]>
Date: Sun Dec 28 18:21:53 2014 +0100
lint: Report on the package being checked.
* guix/scripts/lint.scm (run-checkers): Check
whether (current-error-port) is a tty, and print the package being
checked and the checker currently running when it is.
---
guix/scripts/lint.scm | 12 +++++++++---
1 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index d6aa54d..9a0d997 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -408,9 +408,15 @@ descriptions maintained upstream."
(define (run-checkers package checkers)
;; Run the given CHECKERS on PACKAGE.
- (for-each (lambda (checker)
- ((lint-checker-check checker) package))
- checkers))
+ (let ((tty? (isatty? (current-error-port)))
+ (name (package-full-name package)))
+ (for-each (lambda (checker)
+ (when tty?
+ (format (current-error-port) "checking ~a [~a]...\r"
+ name (lint-checker-name checker))
+ (force-output (current-error-port)))
+ ((lint-checker-check checker) package))
+ checkers)))
;;;
