guix-commits
[Top][All Lists]
Advanced

[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',



reply via email to

[Prev in Thread] Current Thread [Next in Thread]