From f740342aded9d22fe532d14a84660915b71c7f9e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 4 Jul 2010 21:10:17 +0000 Subject: gnupdate: Remove unused variables. * maintainers/scripts/gnu/gnupdate.scm (gnu?): Don't bind unused fields in `match'. (ftp-server/directory): Ditto. svn path=/nixpkgs/trunk/; revision=22454 --- maintainers/scripts/gnu/gnupdate.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'maintainers') diff --git a/maintainers/scripts/gnu/gnupdate.scm b/maintainers/scripts/gnu/gnupdate.scm index 6d8cf18df912..82c924e19fa8 100644 --- a/maintainers/scripts/gnu/gnupdate.scm +++ b/maintainers/scripts/gnu/gnupdate.scm @@ -522,7 +522,7 @@ ;; Return true if PACKAGE (a snix expression) is a GNU package (according ;; to a simple heuristic.) Otherwise return #f. (match package - (('attribute _ attribute-name ('derivation _ _ body)) + (('attribute _ _ ('derivation _ _ body)) (any (lambda (attr) (match attr (('attribute _ "meta" ('attribute-set metas)) @@ -572,7 +572,7 @@ (values server (if (not subdir?) directory (string-append directory "/" project)))) - (else + (_ (values "ftp.gnu.org" (string-append "/gnu/" project)))))) (define (nixpkgs->gnu-name project) -- cgit 1.4.1