From f2ead3989e93a78fbcfa1788074742b71aec3319 Mon Sep 17 00:00:00 2001 From: jgart Date: Fri, 20 Feb 2026 23:20:57 -0500 Subject: [PATCH] guix: import: cpan: Fill in description field in template. * guix/import/cpan.scm (cpan-module->sexp): Fill in description field in template. * tests/import/cpan.scm (test-source): Update test to account for change in description text. Change-Id: I3bc3e4c2cc90f7a1f1f0d56e9213b6a1d0b8e841 Signed-off-by: jgart --- guix/import/cpan.scm | 5 +++-- tests/import/cpan.scm | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm index bc5dfd1847..3d4508b11e 100644 --- a/guix/import/cpan.scm +++ b/guix/import/cpan.scm @@ -287,6 +287,7 @@ in RELEASE, a record." (let* ((tarball (with-store store (download-to-store store source-url))) (inputs (cpan-module-inputs release)) + (synopsis-text (cpan-release-abstract release)) (sexp `(package (name ,(cpan-name->downstream-name name)) @@ -305,8 +306,8 @@ in RELEASE, a record." (filter (upstream-input-type-predicate 'propagated) inputs)) (home-page ,(cpan-home name)) - (synopsis ,(cpan-release-abstract release)) - (description fill-in-yourself!) + (synopsis ,synopsis-text) + (description ,(string-append synopsis-text ".")) (license ,(string->license (cpan-release-license release)))))) (values sexp (map upstream-input-name inputs)))) diff --git a/tests/import/cpan.scm b/tests/import/cpan.scm index 42e8c4e42c..aec66122fb 100644 --- a/tests/import/cpan.scm +++ b/tests/import/cpan.scm @@ -86,7 +86,7 @@ (propagated-inputs (list perl-test-script)) (home-page "https://metacpan.org/release/Foo-Bar") (synopsis "Fizzle Fuzz") - (description fill-in-yourself!) + (description "Fizzle Fuzz.") (license perl-license)) (string=? (bytevector->nix-base32-string (call-with-input-string test-source port-sha256))