~ruther/guix-local

e04741f160e77fe41d02129011bc2bb20ad27669 — Alex Kost 10 years ago 5952111
lint: Export 'run-checkers'.

* guix/scripts/lint.scm (run-checkers): Export.  Make 'checkers'
  argument optional.
1 files changed, 3 insertions(+), 2 deletions(-)

M guix/scripts/lint.scm
M guix/scripts/lint.scm => guix/scripts/lint.scm +3 -2
@@ 62,6 62,7 @@
            check-source-file-name
            check-license
            check-formatting
            run-checkers

            %checkers
            lint-checker


@@ 709,8 710,8 @@ or a list thereof")
     (description "Look for formatting issues in the source")
     (check       check-formatting))))

(define (run-checkers package checkers)
  ;; Run the given CHECKERS on PACKAGE.
(define* (run-checkers package #:optional (checkers %checkers))
  "Run the given CHECKERS on PACKAGE."
  (let ((tty? (isatty? (current-error-port)))
        (name (package-full-name package)))
    (for-each (lambda (checker)