ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "reconfigure: Use 'current-channels' to obtain provenance data."

Browse source 
This fixes <https://issues.guix.gnu.org/57480>.

This reverts commit b08439809f.
This commit is contained in:
宋文武 2022-08-30 14:43:21 +08:00
parent 9b8507df11
commit e214e87cc5
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/scripts/system/reconfigure.scm
View file

@ -34,7 +34,7 @@ (define-module (guix scripts system reconfigure)
#:use-module (guix monads) #:use-module (guix monads)
#:use-module (guix store) #:use-module (guix store)
#:use-module ((guix self) #:select (make-config.scm)) #:use-module ((guix self) #:select (make-config.scm))
#:autoload (guix describe) (current-channels) #:autoload (guix describe) (current-profile)
#:use-module (guix channels) #:use-module (guix channels)
#:autoload (guix git) (update-cached-checkout) #:autoload (guix git) (update-cached-checkout)
#:use-module (guix i18n) #:use-module (guix i18n)
@ -372,7 +372,8 @@ (define* (check-forward-update #:optional
'guix system describe' by default) and the target commit (as returned by 'guix 'guix system describe' by default) and the target commit (as returned by 'guix
describe')." describe')."
(define new (define new
(current-channels)) (or (and=> (current-profile) profile-channels)
'()))
(when (null? current-channels) (when (null? current-channels)
(warning (G_ "cannot determine provenance for current system~%"))) (warning (G_ "cannot determine provenance for current system~%")))