aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-10-01 21:10:16 +0300
committerAlex Kost <alezost@gmail.com>2015-10-09 16:17:45 +0300
commite04741f160e77fe41d02129011bc2bb20ad27669 (patch)
treecdd9e62e3c88da6fc09431a791e4c61101a4eb74
parent5952111cc035ae87d73c7100906534993a951ca1 (diff)
downloadguix-e04741f160e77fe41d02129011bc2bb20ad27669.tar
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.scm5
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)