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
This commit is contained in:
Ludovic Courtès 2024-03-19 15:53:02 +01:00
parent ee11b22fcc
commit 06baf4d6ba
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -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 @@ (define* (sexp->manifest-entry sexp #:optional (parent (delay #f)))
vlist-null)))
(_
(raise (condition
(&profile-error
(profile (and=> (source-property sexp 'filename) dirname)))
(&message (message "unsupported manifest format")))))))
(define (read-manifest port)