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'.

1 files changed, 1 insertions, 4 deletions

diff --git a/gnu/services.scm b/gnu/services.scm
index cc2540ee50d..2abef557d46 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)