From 6454164412ef8b0c5e5bd08b7b584cddd0784515 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Tue, 30 Aug 2022 19:21:16 +0200 Subject: scripts: system: Check the image operating-system. * guix/scripts/system.scm (process-action): Check that the provided image has a defined operating-system. --- guix/scripts/system.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'guix/scripts/system.scm') diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 443e9d3282..4bcf789703 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -41,6 +41,7 @@ (define-module (guix scripts system) #:use-module (guix grafts) #:use-module (guix gexp) #:use-module (guix derivations) + #:use-module (guix diagnostics) #:use-module (guix packages) #:use-module (guix utils) #:use-module (guix monads) @@ -1257,7 +1258,10 @@ (define save-provenance? (size image-size) (volatile-root? volatile?) (shared-network? shared-network?)))) - (os (image-operating-system image)) + (os (or (image-operating-system image) + (raise + (formatted-message + (G_ "image lacks an operating-system"))))) (target-file (match args ((first second) second) (_ #f))) -- cgit v1.2.3