gnu-maintenance: Add missing type check.

* guix/gnu-maintenance.scm (gnu-package?): Only call 'mirror-type' when
  URL is a string.
This commit is contained in:
Ludovic Courtès 2014-05-05 09:00:00 +02:00
parent 1d4628329d
commit 515eba4543

View File

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