aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-11-19 22:37:29 +0100
committerLudovic Courtès <ludo@gnu.org>2014-11-19 22:52:30 +0100
commitf4d5bca39ec4b78993347e60c1d3d0971643f5a6 (patch)
tree27747ddb95caec838a4218af559480c1a5a9d75a
parent37627ffa89dc318858c14073e6cf238e1f531b36 (diff)
downloadguix-f4d5bca39ec4b78993347e60c1d3d0971643f5a6.tar
guix-f4d5bca39ec4b78993347e60c1d3d0971643f5a6.tar.gz
lint: Change checker names to be symbols.
* guix/scripts/lint.scm (%checkers): Change 'name' fields to be symbols. (%options): Adjust "-c" option handler accordingly.
-rw-r--r--guix/scripts/lint.scm19
1 files changed, 10 insertions, 9 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index facc2bf60b..dd2584be77 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -278,23 +278,23 @@ descriptions maintained upstream."
(define %checkers
(list
(lint-checker
- (name "description")
+ (name 'description)
(description "Validate package descriptions")
(check check-description-style))
(lint-checker
- (name "gnu-description")
+ (name 'gnu-description)
(description "Validate synopsis & description of GNU packages")
(check check-gnu-synopsis+description))
(lint-checker
- (name "inputs-should-be-native")
+ (name 'inputs-should-be-native)
(description "Identify inputs that should be native inputs")
(check check-inputs-should-be-native))
(lint-checker
- (name "patch-filenames")
+ (name 'patch-filenames)
(description "Validate filenames of patches")
(check check-patches))
(lint-checker
- (name "synopsis")
+ (name 'synopsis)
(description "Validate package synopsis")
(check check-synopsis-style))))
@@ -336,11 +336,12 @@ Run a set of checkers on the specified package; if none is specified, run the ch
;; 'certainty'.
(list (option '(#\c "checkers") #t #f
(lambda (opt name arg result arg-handler)
- (let ((names (string-split arg #\,)))
+ (let ((names (map string->symbol (string-split arg #\,))))
(for-each (lambda (c)
- (when (not (member c (map lint-checker-name
- %checkers)))
- (leave (_ "~a: invalid checker") c)))
+ (unless (memq c
+ (map lint-checker-name
+ %checkers))
+ (leave (_ "~a: invalid checker~%") c)))
names)
(values (alist-cons 'checkers
(filter (lambda (checker)