diff options
| author | Alex Kost <alezost@gmail.com> | 2015-10-01 21:10:16 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-10-09 16:17:45 +0300 |
| commit | e04741f160e77fe41d02129011bc2bb20ad27669 (patch) | |
| tree | cdd9e62e3c88da6fc09431a791e4c61101a4eb74 | |
| parent | 5952111cc035ae87d73c7100906534993a951ca1 (diff) | |
| download | guix-e04741f160e77fe41d02129011bc2bb20ad27669.tar.gz | |
lint: Export 'run-checkers'.
* guix/scripts/lint.scm (run-checkers): Export. Make 'checkers' argument optional.
| -rw-r--r-- | guix/scripts/lint.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 3b4ff722e9..b1707ade44 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -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) |