~ruther/guix-local

9096bc28a30d48486efa13488ac4814b2ccd0fa2 — Ludovic Courtès 3 years ago eb52b24 
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'.
patch browse .tar.gz .zip 
1 files changed, 1 insertions(+), 4 deletions(-)

M gnu/services.scm

M gnu/services.scm => gnu/services.scm +1 -4
@@ 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)