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

installer: tests: Don't install to a CD/DVD.

Browse source 
* gnu/installer/tests.scm (choose-partitioning): Use 'find' to select
the disk.
This commit is contained in:
Ludovic Courtès 2020-04-10 15:44:30 +02:00
parent 76026b5f51
commit 475d48145d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/installer/tests.scm
View file

@ -296,8 +296,13 @@ (define* (choose-partitioning port
encrypted encrypted
not-encrypted)) not-encrypted))
((list-selection (title "Disk") (multiple-choices? #f) ((list-selection (title "Disk") (multiple-choices? #f)
(items (,disk _ ...))) (items (,disks ...)))
disk) ;; 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 ;; The "Partition table" dialog pops up only if there's not already a
;; partition table. ;; partition table.