gnu-maintenance: Add missing type check.

* guix/gnu-maintenance.scm (gnu-package?): Only call 'mirror-type' when URL is a string.
2014-05-05 09:00:00 +02:00 · 2014-05-05 09:00:00 +02:00 · 515eba4543
parent 1d4628329d
commit 515eba4543
1 changed files with 1 additions and 1 deletions
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@ -176,7 +176,7 @@ network to check in GNU's database."

       (let ((url  (and=> (package-source package) origin-uri))
             (name (package-name package)))
-         (case (and url (mirror-type url))
+         (case (and (string? url) (mirror-type url))
           ((gnu) #t)
           ((non-gnu) #f)
           (else