guix package: Simplify 'package->manifest-entry*'.

* guix/scripts/package.scm (package->manifest-entry*): Rewrite in terms
of 'manifest-entry-with-provenance'.
This commit is contained in:
Ludovic Courtès 2020-09-24 18:41:09 +02:00
parent db2785cd86
commit 4eeaae7994
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -585,14 +585,8 @@ (define (store-item->manifest-entry item)
(define (package->manifest-entry* package output)
"Like 'package->manifest-entry', but attach PACKAGE provenance meta-data to
the resulting manifest entry."
(define (provenance-properties package)
(match (package-provenance package)
(#f '())
(sexp `((provenance ,@sexp)))))
(package->manifest-entry package output
#:properties (provenance-properties package)))
(manifest-entry-with-provenance
(package->manifest-entry package output)))
(define (options->installable opts manifest transaction)
"Given MANIFEST, the current manifest, and OPTS, the result of 'args-fold',