diff options
| -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) |