Browse Source

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

* gnu/installer/tests.scm (choose-partitioning): Use 'find' to select
the disk.
gn-latest-20200428
Ludovic Courtès 1 year ago
parent
commit
475d48145d
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 9
      gnu/installer/tests.scm

9
gnu/installer/tests.scm

@ -296,8 +296,13 @@ file, actually starting the installation process."
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…
Cancel
Save