From 90d104ba82dca16203448da57523d2a7b36be040 Mon Sep 17 00:00:00 2001 From: Cyril Roelandt Date: Sat, 27 Sep 2014 21:32:27 +0200 Subject: guix lint: make sure check-patches retrieves patch names. * guix/lint (check-patches): Test the output of origin-patches. --- guix/scripts/lint.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'guix/scripts/lint.scm') diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 83dde9a1a1..b61373760c 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -152,10 +152,15 @@ (define (check-patches package) (name (package-name package)) (full-name (package-full-name package))) (if (and patches - (any (lambda (patch) + (any (match-lambda + ((? string? patch) (let ((filename (basename patch))) (not (or (eq? (string-contains filename name) 0) - (eq? (string-contains filename full-name) 0))))) + (eq? (string-contains filename full-name) + 0))))) + (_ + ;; This must be an or something like that. + #f)) patches)) (emit-warning package "file names of patches should start with the package name" -- cgit v1.2.3