[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/07: inferior: Add 'inferior-package-provenance'.
From: |
guix-commits |
Subject: |
05/07: inferior: Add 'inferior-package-provenance'. |
Date: |
Sun, 29 Dec 2019 12:25:34 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 7a241c63503c81a0f9ed284c7cc66da058aa00cf
Author: Ludovic Courtès <address@hidden>
Date: Sun Dec 29 17:35:56 2019 +0100
inferior: Add 'inferior-package-provenance'.
* guix/inferior.scm (inferior-package-provenance): New procedure.
---
guix/inferior.scm | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/guix/inferior.scm b/guix/inferior.scm
index 71dae89..c4969cd 100644
--- a/guix/inferior.scm
+++ b/guix/inferior.scm
@@ -82,6 +82,7 @@
inferior-package-native-search-paths
inferior-package-transitive-native-search-paths
inferior-package-search-paths
+ inferior-package-provenance
inferior-package-derivation
inferior-package->manifest-entry
@@ -416,6 +417,19 @@ package."
(define inferior-package-transitive-native-search-paths
(cut %inferior-package-search-paths <>
'package-transitive-native-search-paths))
+(define (inferior-package-provenance package)
+ "Return a \"provenance sexp\" for PACKAGE, an inferior package. The result
+is similar to the sexp returned by 'package-provenance' for regular packages."
+ (inferior-package-field package
+ '(let* ((describe
+ (false-if-exception
+ (resolve-interface '(guix describe))))
+ (provenance
+ (false-if-exception
+ (module-ref describe
+ 'package-provenance))))
+ (or provenance (const #f)))))
+
(define (proxy client backend) ;adapted from (guix ssh)
"Proxy communication between CLIENT and BACKEND until CLIENT closes the
connection, at which point CLIENT is closed (both CLIENT and BACKEND must be
- branch master updated (161b297 -> a4ee6ac), guix-commits, 2019/12/29
- 01/07: git-authenticate: Add glv to the list of committers., guix-commits, 2019/12/29
- 02/07: profiles: Add 'map-manifest-entries'., guix-commits, 2019/12/29
- 05/07: inferior: Add 'inferior-package-provenance'.,
guix-commits <=
- 03/07: guix package: Save provenance information when using '--manifest'., guix-commits, 2019/12/29
- 04/07: pack: Save provenance information when using '--manifest'., guix-commits, 2019/12/29
- 06/07: services: dhcp-client: Ignore interfaces that cannot be activated., guix-commits, 2019/12/29
- 07/07: installer: Pass '--fallback' to 'guix system init'., guix-commits, 2019/12/29