import: npm-binary: Improve npm-package->package-sexp.

* guix/import/npm-binary.scm (npm-package->package-sexp): Use record
matching.

Change-Id: If4e60162a84cb8d9694882eab933afa7028b02d7
Signed-off-by: Jelle Licht <jlicht@fsfe.org>
This commit is contained in:
Nicolas Graves via Guix-patches via 2025-03-24 08:29:13 +01:00 committed by Andreas Enge
parent 4b47728a6b
commit 23e001d9cb
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3

View file

@ -196,16 +196,10 @@
(($ <versioned-package> name version)
(resolve-package name (string->semver-range version)))))
(if (package-revision? npm-package)
(let ((name (package-revision-name npm-package))
(version (package-revision-version npm-package))
(home-page (package-revision-home-page npm-package))
(dependencies (package-revision-dependencies npm-package))
(dev-dependencies (package-revision-dev-dependencies npm-package))
(peer-dependencies (package-revision-peer-dependencies npm-package))
(license (package-revision-license npm-package))
(description (package-revision-description npm-package))
(dist (package-revision-dist npm-package)))
(match npm-package
(($ <package-revision>
name version home-page dependencies dev-dependencies
peer-dependencies license description dist)
(let* ((name (npm-name->name name))
(url (dist-tarball dist))
(home-page (if (string? home-page)
@ -258,7 +252,8 @@
(map (match-lambda (($ <package-revision> name version)
(list name (semver->string version))))
resolved-deps))))
(values #f '())))
(_
(values #f '()))))
;;;