ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/package.scm
View file

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