guix-commits
[Top][All Lists]
Advanced

[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



reply via email to

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