describe: Warn about 'GUIX_PACKAGE_PATH' in json and recutils format.
Fixes <https://bugs.gnu.org/34884>. Reported by Pierre Neidhardt <mail@ambrevar.xyz>. * guix/scripts/describe.scm (display-package-search-path): Add catch-all case for FMT.
This commit is contained in:
parent
c0d43f6223
commit
b6fd086a61
|
@ -1,5 +1,5 @@
|
||||||
;;; GNU Guix --- Functional package management for GNU
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
|
;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
|
||||||
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
|
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
|
@ -85,7 +85,9 @@ (define (display-package-search-path fmt)
|
||||||
(format #t "~%GUIX_PACKAGE_PATH=\"~a\"~%" string))
|
(format #t "~%GUIX_PACKAGE_PATH=\"~a\"~%" string))
|
||||||
('channels
|
('channels
|
||||||
(format #t (G_ "~%;; warning: GUIX_PACKAGE_PATH=\"~a\"~%")
|
(format #t (G_ "~%;; warning: GUIX_PACKAGE_PATH=\"~a\"~%")
|
||||||
string))))))
|
string))
|
||||||
|
(_
|
||||||
|
(warning (G_ "'GUIX_PACKAGE_PATH' is set but it is not captured~%")))))))
|
||||||
|
|
||||||
(define (channel->sexp channel)
|
(define (channel->sexp channel)
|
||||||
`(channel
|
`(channel
|
||||||
|
|
Loading…
Reference in a new issue