diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-05 09:00:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-05 09:00:00 +0200 |
| commit | 515eba4543f658799b1e11d187fa599d0a9a0dce (patch) | |
| tree | 25bbda4ff0775930bcfa0c9e219586a0c21b2eac /guix/gnu-maintenance.scm | |
| parent | 1d4628329d37c5e5857c70f3720b941e4bbcfcd2 (diff) | |
| download | gnu-guix-515eba4543f658799b1e11d187fa599d0a9a0dce.tar gnu-guix-515eba4543f658799b1e11d187fa599d0a9a0dce.tar.gz | |
gnu-maintenance: Add missing type check.
* guix/gnu-maintenance.scm (gnu-package?): Only call 'mirror-type' when
URL is a string.
Diffstat (limited to 'guix/gnu-maintenance.scm')
| -rw-r--r-- | guix/gnu-maintenance.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index d8b6af9d31..7b608daea2 100644 --- 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 |