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.
This commit is contained in:
parent
07af3e5efe
commit
c79c6e598a
|
@ -408,9 +408,15 @@ descriptions maintained upstream."
|
|||
|
||||
(define (run-checkers package checkers)
|
||||
;; Run the given CHECKERS on PACKAGE.
|
||||
(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))
|
||||
checkers)))
|
||||
|
||||
|
||||
;;;
|
||||
|
|
Loading…
Reference in New Issue