ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-14 07:00:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: system: Check the image operating-system.

Browse source 
* guix/scripts/system.scm (process-action): Check that the provided image has
a defined operating-system.
This commit is contained in:
Mathieu Othacehe 2022-08-30 19:21:16 +02:00
parent 0518a88a4e
commit 6454164412
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/scripts/system.scm
View file

@ -41,6 +41,7 @@ (define-module (guix scripts system)
#:use-module (guix grafts) #:use-module (guix grafts)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix derivations) #:use-module (guix derivations)
#:use-module (guix diagnostics)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix monads) #:use-module (guix monads)
@ -1257,7 +1258,10 @@ (define save-provenance?
(size image-size) (size image-size)
(volatile-root? volatile?) (volatile-root? volatile?)
(shared-network? shared-network?)))) (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 (target-file (match args
((first second) second) ((first second) second)
(_ #f))) (_ #f)))