~ruther/guix-local: import/cpan: Maybe coerce version to string.

c91b368e96de9446bab37e7fab7d7c8ba71af946 — Alex Sassmannshausen 9 years ago d9721bc

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.

patch browse .tar.gz

1 files changed, 3 insertions(+), 1 deletions(-)

M guix/import/cpan.scm

M guix/import/cpan.scm => guix/import/cpan.scm +3 -1

@@ 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))