~ruther/guix-local

06baf4d6ba187e4f56f15692b6013cf1c89df7f1 — Ludovic Courtès 1 year, 11 months ago ee11b22 
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
patch browse .tar.gz 
1 files changed, 3 insertions(+), 1 deletions(-)

M guix/profiles.scm

M guix/profiles.scm => guix/profiles.scm +3 -1
@@ 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)