guix: lint: Fix typos in module.

Fixes bug #1825 and other typos.

* guix/lint.scm (check-wrapper-inputs, check-derivation,
%local-checkers): Fix typos.

Change-Id: Ic97e277fb7ede651bed2510dfa8a11fce7c8a61b
This commit is contained in:
Efraim Flashner 2025-08-06 12:11:11 +03:00
parent 86a7cd424e
commit bca2819807
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -693,7 +693,7 @@ or \"bash-minimal\" is not in its inputs. 'wrap-script' is not supported."
input-names))) input-names)))
(define (check-procedure-body body) (define (check-procedure-body body)
(match body (match body
;; Explicitely setting an interpreter is acceptable. ;; Explicitly setting an interpreter is acceptable.
(('wrap-program _ '#:sh . _) '()) (('wrap-program _ '#:sh . _) '())
(('wrap-program _ . _) (('wrap-program _ . _)
(list (report-wrap-program-error package 'wrap-program))) (list (report-wrap-program-error package 'wrap-program)))
@ -1520,7 +1520,7 @@ password, provided REF's URI is HTTP or HTTPS."
(filter lint-warning? (filter lint-warning?
(map (cut try store <>) (package-supported-systems package)))) (map (cut try store <>) (package-supported-systems package))))
;; For backwards compatability, don't rely on store being set ;; For backwards compatibility, don't rely on store being set
(or (and=> store check-with-store) (or (and=> store check-with-store)
(with-store store (with-store store
(check-with-store store)))) (check-with-store store))))
@ -2112,7 +2112,7 @@ them for PACKAGE."
(check check-input-labels)) (check check-input-labels))
(lint-checker (lint-checker
(name 'wrapper-inputs) (name 'wrapper-inputs)
(description "Make sure 'wrap-program' can finds its interpreter.") (description "Make sure 'wrap-program' can find its interpreter.")
(check check-wrapper-inputs)) (check check-wrapper-inputs))
(lint-checker (lint-checker
(name 'license) (name 'license)