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:
Ludovic Courtès 2022-08-28 23:03:34 +02:00
parent eb52b240eb
commit 9096bc28a3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -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)