Author: ludo
Date: 2010-07-04 21:10:17 +0000 (Sun, 04 Jul 2010)
New Revision: 22454

You can view the changes in this commit at:
   https://svn.nixos.org/viewvc/nix?rev=22454&view=rev

Modified:
   nixpkgs/trunk/maintainers/scripts/gnu/gnupdate.scm

Log:
gnupdate: Remove unused variables.

* maintainers/scripts/gnu/gnupdate.scm (gnu?): Don't bind unused fields
  in `match'.
  (ftp-server/directory): Ditto.

Changes:

Modified: nixpkgs/trunk/maintainers/scripts/gnu/gnupdate.scm
===================================================================
--- nixpkgs/trunk/maintainers/scripts/gnu/gnupdate.scm  2010-07-04 21:10:13 UTC 
(rev 22453)
+++ nixpkgs/trunk/maintainers/scripts/gnu/gnupdate.scm  2010-07-04 21:10:17 UTC 
(rev 22454)
@@ -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)

_______________________________________________
nix-commits mailing list
[email protected]
http://mail.cs.uu.nl/mailman/listinfo/nix-commits

Reply via email to