mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
services: provenance: Use 'current-channels' to obtain provenance data.
Previously, build-time metadata from (guix config) would be ignored when
available--e.g., when running /run/current-system/profile/bin/guix.
This is a followup to 316fc2acbb
.
* gnu/services.scm (provenance-entry): Use 'current-channels' instead of
'current-profile' + 'profile-channels'.
This commit is contained in:
parent
eb52b240eb
commit
9096bc28a3
1 changed files with 1 additions and 4 deletions
|
@ -482,11 +482,8 @@ (define (provenance-file channels config-file)
|
|||
(define (provenance-entry config-file)
|
||||
"Return system entries describing the operating system provenance: the
|
||||
channels in use and CONFIG-FILE, if it is true."
|
||||
(define profile
|
||||
(current-profile))
|
||||
|
||||
(define channels
|
||||
(and=> profile profile-channels))
|
||||
(current-channels))
|
||||
|
||||
(mbegin %store-monad
|
||||
(let ((config-file (cond ((string? config-file)
|
||||
|
|
Loading…
Reference in a new issue