diff options
author | Ludovic Courtès <ludo@gnu.org> | 2024-03-19 15:53:02 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-03-19 17:02:14 +0100 |
commit | 06baf4d6ba187e4f56f15692b6013cf1c89df7f1 (patch) | |
tree | 4fcf7456c5895b82de20117ef7d9e7bdb7fd338e /guix/profiles.scm | |
parent | ee11b22fcc7d8b42847e9d940ce5be3bc0d4f880 (diff) |
profiles: ‘read-manifest’ raises to ‘&profile-error’ upon version mismatch.
* guix/profiles.scm (sexp->manifest): In the catch-all clause, raise to
‘&profile-error’ in addition to ‘&message’.
Change-Id: Ieb08187b388531c2157bfe67fb1b7319dbbb4ff3
Diffstat (limited to 'guix/profiles.scm')
-rw-r--r-- | guix/profiles.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index ce2f8337bf..2d695a52f8 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013-2023 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013-2024 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2014, 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> @@ -652,6 +652,8 @@ denoting a specific output of a package." vlist-null))) (_ (raise (condition + (&profile-error + (profile (and=> (source-property sexp 'filename) dirname))) (&message (message "unsupported manifest format"))))))) (define (read-manifest port) |