diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-09-24 18:41:09 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-09-25 19:05:08 +0200 |
| commit | 4eeaae7994c6fb82e005acf290a3b81cba7bd871 (patch) | |
| tree | 60f85bcbebc1cc72c52ed3d0e50d405a946be5fc | |
| parent | db2785cd86ee420039ca44bba898151a4f9bbf2b (diff) | |
| download | guix-4eeaae7994c6fb82e005acf290a3b81cba7bd871.tar guix-4eeaae7994c6fb82e005acf290a3b81cba7bd871.tar.gz | |
guix package: Simplify 'package->manifest-entry*'.
* guix/scripts/package.scm (package->manifest-entry*): Rewrite in terms
of 'manifest-entry-with-provenance'.
| -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', |