01/09: services: provenance: Use 'current-channels' to obtain provenance data.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 9096bc28a30d48486efa13488ac4814b2ccd0fa2
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Aug 28 23:03:34 2022 +0200

    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'.
---
 gnu/services.scm | 5 +----
 1 file changed, 1 insertion(+), 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)