diff options
| -rw-r--r-- | guix/scripts/package.scm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 4eb968a49b..7e7c37eac4 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -585,14 +585,8 @@ upgrading, #f otherwise." (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', |