ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

inferior: Add 'inferior-package-provenance'.

Browse source 
* guix/inferior.scm (inferior-package-provenance): New procedure.
This commit is contained in:
Ludovic Courtès 2019-12-29 17:35:56 +01:00
parent 975183a1c4
commit 7a241c6350
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/inferior.scm
View file

@ -82,6 +82,7 @@ (define-module (guix inferior)
inferior-package-native-search-paths inferior-package-native-search-paths
inferior-package-transitive-native-search-paths inferior-package-transitive-native-search-paths
inferior-package-search-paths inferior-package-search-paths
inferior-package-provenance
inferior-package-derivation inferior-package-derivation
inferior-package->manifest-entry inferior-package->manifest-entry
@ -416,6 +417,19 @@ (define inferior-package-search-paths
(define inferior-package-transitive-native-search-paths (define inferior-package-transitive-native-search-paths
(cut %inferior-package-search-paths <> '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) (define (proxy client backend) ;adapted from (guix ssh)
"Proxy communication between CLIENT and BACKEND until CLIENT closes the "Proxy communication between CLIENT and BACKEND until CLIENT closes the
connection, at which point CLIENT is closed (both CLIENT and BACKEND must be connection, at which point CLIENT is closed (both CLIENT and BACKEND must be