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:
		
							parent
							
								
									ee11b22fcc
								
							
						
					
					
						commit
						06baf4d6ba
					
				
					 1 changed files with 3 additions and 1 deletions
				
			
		|  | @ -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) | ||||
|  |  | |||
		Reference in a new issue