mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
installer: tests: Don't install to a CD/DVD.
* gnu/installer/tests.scm (choose-partitioning): Use 'find' to select the disk.
This commit is contained in:
parent
74f01059cb
commit
66b53c2c72
1 changed files with 7 additions and 2 deletions
|
@ -296,8 +296,13 @@ (define* (choose-partitioning port
|
|||
encrypted
|
||||
not-encrypted))
|
||||
((list-selection (title "Disk") (multiple-choices? #f)
|
||||
(items (,disk _ ...)))
|
||||
disk)
|
||||
(items (,disks ...)))
|
||||
;; When running the installation from an ISO image, the CD/DVD drive
|
||||
;; shows up in the list. Avoid it.
|
||||
(find (lambda (disk)
|
||||
(not (or (string-contains disk "DVD")
|
||||
(string-contains disk "CD-ROM"))))
|
||||
disks))
|
||||
|
||||
;; The "Partition table" dialog pops up only if there's not already a
|
||||
;; partition table.
|
||||
|
|
Loading…
Reference in a new issue