aboutsummaryrefslogtreecommitdiff
path: root/gnu/services.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-08-28 23:03:34 +0200
committerLudovic Courtès <ludo@gnu.org>2022-08-30 00:40:04 +0200
commit9096bc28a30d48486efa13488ac4814b2ccd0fa2 (patch)
treebe6253e1b20278747aa54d79a000d292d9109bce /gnu/services.scm
parenteb52b240eb58627cc76a03244c45502c4ec3c50e (diff)
downloadguix-9096bc28a30d48486efa13488ac4814b2ccd0fa2.tar
guix-9096bc28a30d48486efa13488ac4814b2ccd0fa2.tar.gz
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 316fc2acbb112bfa572ae30f95a93bcd56621234. * gnu/services.scm (provenance-entry): Use 'current-channels' instead of 'current-profile' + 'profile-channels'.
Diffstat (limited to 'gnu/services.scm')
-rw-r--r--gnu/services.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/gnu/services.scm b/gnu/services.scm
index cc2540ee50..2abef557d4 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -482,11 +482,8 @@ configuration being used."
(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)