lint: Export 'run-checkers'.

* guix/scripts/lint.scm (run-checkers): Export.  Make 'checkers'
  argument optional.
master
Alex Kost 2015-10-01 21:10:16 +03:00
parent 5952111cc0
commit e04741f160
1 changed files with 3 additions and 2 deletions

View File

@ -62,6 +62,7 @@
check-source-file-name check-source-file-name
check-license check-license
check-formatting check-formatting
run-checkers
%checkers %checkers
lint-checker lint-checker
@ -709,8 +710,8 @@ or a list thereof")
(description "Look for formatting issues in the source") (description "Look for formatting issues in the source")
(check check-formatting)))) (check check-formatting))))
(define (run-checkers package checkers) (define* (run-checkers package #:optional (checkers %checkers))
;; Run the given CHECKERS on PACKAGE. "Run the given CHECKERS on PACKAGE."
(let ((tty? (isatty? (current-error-port))) (let ((tty? (isatty? (current-error-port)))
(name (package-full-name package))) (name (package-full-name package)))
(for-each (lambda (checker) (for-each (lambda (checker)