diff options
| -rw-r--r-- | 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 d6aa54dc0c..9a0d997320 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))) ;;; |