diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-10 15:44:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-10 16:06:32 +0200 |
| commit | 66b53c2c72b4aad4e6621273b9a5ca8c6f632c63 (patch) | |
| tree | c7edfa6026e0e90af4d54e6883d3fb7d858bb68c /gnu | |
| parent | 74f01059cb30827de92f75e99a3bb4ee31c19118 (diff) | |
| download | guix-66b53c2c72b4aad4e6621273b9a5ca8c6f632c63.tar guix-66b53c2c72b4aad4e6621273b9a5ca8c6f632c63.tar.gz | |
installer: tests: Don't install to a CD/DVD.
* gnu/installer/tests.scm (choose-partitioning): Use 'find' to select
the disk.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/installer/tests.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/installer/tests.scm b/gnu/installer/tests.scm index 8ae80e4d7e..58bf0a2700 100644 --- a/gnu/installer/tests.scm +++ b/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. |