mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

import/cpan: Maybe coerce version to string.

Browse source 
* guix/import/cpan.scm (cpan-module->sexp) <version>: Test if version in
  meta is string or number.  If it is number, coerce to string.
This commit is contained in:
Alex Sassmannshausen 2016-11-12 17:12:53 +01:00
parent d9721bcf27
commit c91b368e96
No known key found for this signature in database
GPG key ID: 8BC4F4476E8A8E00
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/import/cpan.scm
View file

@ -128,7 +128,9 @@ (define (guix-name name)
(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))