Skip to content
Snippets Groups Projects
Unverified Commit c91b368e authored by Alex Sassmannshausen's avatar Alex Sassmannshausen
Browse files

import/cpan: Maybe coerce version to string.

* guix/import/cpan.scm (cpan-module->sexp) <version>: Test if version in
  meta is string or number.  If it is number, coerce to string.
parent d9721bcf
No related branches found
No related tags found
No related merge requests found
...@@ -128,7 +128,9 @@ (define (guix-name name) ...@@ -128,7 +128,9 @@ (define (guix-name name)
(string-append "perl-" (string-downcase name)))) (string-append "perl-" (string-downcase name))))
(define version (define version
(assoc-ref meta "version")) (match (assoc-ref meta "version")
((? number? vrs) (number->string vrs))
((? string? vrs) vrs)))
(define core-module? (define core-module?
(let ((perl-version (package-version perl)) (let ((perl-version (package-version perl))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment