diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-11-19 22:37:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-11-19 22:52:30 +0100 |
| commit | f4d5bca39ec4b78993347e60c1d3d0971643f5a6 (patch) | |
| tree | 27747ddb95caec838a4218af559480c1a5a9d75a | |
| parent | 37627ffa89dc318858c14073e6cf238e1f531b36 (diff) | |
| download | gnu-guix-f4d5bca39ec4b78993347e60c1d3d0971643f5a6.tar gnu-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.scm | 19 |
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) |