me
/
guix
Archived
1
0
Fork 0
Code

scripts: system: Check the image operating-system. 

* guix/scripts/system.scm (process-action): Check that the provided image has
a defined operating-system.
master
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 @@
#: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 @@ resulting from command-line parsing."
(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)))