01/07: channels: Provide a hint when the 'guix' channel is lacking.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f75243e17e3ff88582314bcb8450e654bb0b556b
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu Jan 9 11:21:31 2020 +0100

    channels: Provide a hint when the 'guix' channel is lacking.
    
    Fixes <https://bugs.gnu.org/39043>.
    Reported by Jesse Gibbons <address@hidden>.
    
    * guix/channels.scm (channel-instance-derivations): Raise '&fix-hint'
    condition in addition to the '&message' condition.
---
 guix/channels.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/guix/channels.scm b/guix/channels.scm
index 826ee72..f0261dc 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2018, 2019 Ludovic Courtès <address@hidden>
+;;; Copyright © 2018, 2019, 2020 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2018 Ricardo Wurmus <address@hidden>
 ;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <address@hidden>
 ;;;
@@ -36,7 +36,8 @@
   #:use-module (guix i18n)
   #:use-module ((guix utils)
                 #:select (source-properties->location
-                          &error-location))
+                          &error-location
+                          &fix-hint))
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-2)
   #:use-module (srfi srfi-9)
@@ -457,6 +458,9 @@ INSTANCES."
       (raise (apply make-compound-condition
                     (condition
                      (&message (message "'guix' channel is lacking")))
+                    (condition
+                     (&fix-hint (hint (G_ "Make sure your list of channels
+contains one channel named @code{guix} providing the core of Guix."))))
                     (if loc
                         (list (condition (&error-location (location loc))))
                         '())))))