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
This commit is contained in:
Ludovic Courtès 2010-07-04 21:10:17 +00:00
parent 073c01503a
commit f740342ade

View file

@ -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)