From 06baf4d6ba187e4f56f15692b6013cf1c89df7f1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 19 Mar 2024 15:53:02 +0100 Subject: [PATCH] =?UTF-8?q?profiles:=20=E2=80=98read-manifest=E2=80=99=20r?= =?UTF-8?q?aises=20to=20=E2=80=98&profile-error=E2=80=99=20upon=20version?= =?UTF-8?q?=20mismatch.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/profiles.scm (sexp->manifest): In the catch-all clause, raise to ‘&profile-error’ in addition to ‘&message’. Change-Id: Ieb08187b388531c2157bfe67fb1b7319dbbb4ff3 --- guix/profiles.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 +;;; Copyright © 2013-2024 Ludovic Courtès ;;; Copyright © 2013 Nikita Karetnikov ;;; Copyright © 2014, 2016 Alex Kost ;;; Copyright © 2015 Mark H Weaver @@ -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)