ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

image: Raise an error when an image lacks a bootable partition.

Browse source 
* gnu/system/image.scm (find-root-partition): Raise an error when 'find'
returns #f.
This commit is contained in:
Ludovic Courtès 2022-07-01 10:38:37 +02:00
parent ed19bc87e4
commit 05a759ab36
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/system/image.scm
View file

@ -275,7 +275,9 @@ (define (root-partition? partition)
(define (find-root-partition image)
"Return the root partition of the given IMAGE."
(srfi-1:find root-partition? (image-partitions image)))
(or (srfi-1:find root-partition? (image-partitions image))
(raise (formatted-message
(G_ "image lacks a partition with the 'boot' flag")))))
(define (root-partition-index image)
"Return the index of the root partition of the given IMAGE."