diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2022-02-08 14:28:56 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-02-08 16:29:31 +0100 |
| commit | f9c62b23cc88541756656b3ec602ce987828d906 (patch) | |
| tree | 2117bc49d0770080abe50e07102cfaa4f11aacb9 | |
| parent | ec5d2b54cd0c96276f4feaae863a18bc3e73ecae (diff) | |
| download | guix-f9c62b23cc88541756656b3ec602ce987828d906.tar.gz guix-f9c62b23cc88541756656b3ec602ce987828d906.zip | |
store: Warn about daemon deprecation.
* guix/deprecation.scm (warn-about-old-daemon): New procedure.
* guix/store.scm (build-things): Use it to warn about old daemons.
| -rw-r--r-- | guix/deprecation.scm | 7 | ||||
| -rw-r--r-- | guix/store.scm | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/guix/deprecation.scm b/guix/deprecation.scm index c66c9367f6..666e178d75 100644 --- a/guix/deprecation.scm +++ b/guix/deprecation.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -24,6 +25,8 @@ define-deprecated/public define-deprecated/alias + + warn-about-old-daemon warn-about-deprecation)) ;;; Commentary: @@ -32,6 +35,10 @@ ;;; ;;; Code: +(define (warn-about-old-daemon) + (warning (G_ "Your Guix daemon is seriously outdated, please consider + updating it by following the 'Upgrading Guix' documentation section.~%"))) + (define* (warn-about-deprecation variable properties #:key replacement) (let ((location (and properties (source-properties->location properties)))) diff --git a/guix/store.scm b/guix/store.scm index a93e9596d9..11dfc095b1 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -1442,6 +1442,8 @@ When a handler is installed with 'with-build-handler', it is called any time things))) (parameterize ((current-store-protocol-version (store-connection-version store))) + (when (< (current-store-protocol-version) 355) ;0x163 + (warn-about-old-daemon)) (if (>= (store-connection-minor-version store) 15) (build store things mode) (if (= mode (build-mode normal)) |