gnu-maintenance: Add missing type check.

* guix/gnu-maintenance.scm (gnu-package?): Only call 'mirror-type' when
  URL is a string.

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index d8b6af9..7b608da 100644 (file)
--- 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