From 515eba4543f658799b1e11d187fa599d0a9a0dce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 5 May 2014 09:00:00 +0200
Subject: [PATCH] gnu-maintenance: Add missing type check.
* guix/gnu-maintenance.scm (gnu-package?): Only call 'mirror-type' when
URL is a string.
---
guix/gnu-maintenance.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index d8b6af9d316..7b608daea27 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -176,7 +176,7 @@ (define (mirror-type url)
(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
--
GitLab