From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Sassmannshausen Subject: [PATCH] import/cpan: Maybe coerce version to string. Date: Sat, 12 Nov 2016 18:20:05 +0100 Message-ID: <20161112172005.4445-2-alex@pompo.co> References: <20161112172005.4445-1-alex@pompo.co> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60605) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c5bym-0000mX-3j for guix-devel@gnu.org; Sat, 12 Nov 2016 12:20:36 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1c5byj-0007Cd-PZ for guix-devel@gnu.org; Sat, 12 Nov 2016 12:20:36 -0500 Received: from mail-wm0-x243.google.com ([2a00:1450:400c:c09::243]:35966) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1c5byj-0007CE-F8 for guix-devel@gnu.org; Sat, 12 Nov 2016 12:20:33 -0500 Received: by mail-wm0-x243.google.com with SMTP id m203so4208651wma.3 for ; Sat, 12 Nov 2016 09:20:33 -0800 (PST) In-Reply-To: <20161112172005.4445-1-alex@pompo.co> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org Cc: Alex Sassmannshausen * guix/import/cpan.scm (cpan-module->sexp) : Test if version in meta is string or number. If it is number, coerce to string. --- guix/import/cpan.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm index 5b7c475..d244969 100644 --- a/guix/import/cpan.scm +++ b/guix/import/cpan.scm @@ -128,7 +128,9 @@ META." (string-append "perl-" (string-downcase name)))) (define version - (assoc-ref meta "version")) + (match (assoc-ref meta "version") + ((? number? vrs) (number->string vrs)) + ((? string? vrs) vrs))) (define core-module? (let ((perl-version (package-version perl)) -- 2.10.1