[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: guix package: Simplify 'package->manifest-entry*'.
From: |
guix-commits |
Subject: |
01/05: guix package: Simplify 'package->manifest-entry*'. |
Date: |
Fri, 25 Sep 2020 13:08:24 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 4eeaae7994c6fb82e005acf290a3b81cba7bd871
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Sep 24 18:41:09 2020 +0200
guix package: Simplify 'package->manifest-entry*'.
* guix/scripts/package.scm (package->manifest-entry*): Rewrite in terms
of 'manifest-entry-with-provenance'.
---
guix/scripts/package.scm | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 4eb968a..7e7c37e 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',