diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-04-27 17:39:42 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-04-28 15:52:20 +0200 |
| commit | 2b645e359e18742c7aed90eeb96a412ae5130a5a (patch) | |
| tree | c51b99976cfb1c0a3a0546da12da1545ede5a637 | |
| parent | 42ac8da474ff71fcbbfc6569a3a7e6f7e6e123e6 (diff) | |
| download | guix-2b645e359e18742c7aed90eeb96a412ae5130a5a.tar.gz | |
installer: Force GPT disk label when UEFI is supported.
* gnu/installer/newt/partition.scm (run-label-page): Force the GPT disk label when UEFI is supported.
| -rw-r--r-- | gnu/installer/newt/partition.scm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm index 81cf68d782..2bb9b16945 100644 --- a/gnu/installer/newt/partition.scm +++ b/gnu/installer/newt/partition.scm @@ -95,14 +95,17 @@ DEVICES list." (define (run-label-page button-text button-callback) "Run a page asking the user to select a partition table label." - (run-listbox-selection-page - #:info-text (G_ "Select a new partition table type. \ + ;; Force the GPT label if UEFI is supported. + (if (efi-installation?) + "gpt" + (run-listbox-selection-page + #:info-text (G_ "Select a new partition table type. \ Be careful, all data on the disk will be lost.") - #:title (G_ "Partition table") - #:listbox-items '("msdos" "gpt") - #:listbox-item->text identity - #:button-text button-text - #:button-callback-procedure button-callback)) + #:title (G_ "Partition table") + #:listbox-items '("msdos" "gpt") + #:listbox-item->text identity + #:button-text button-text + #:button-callback-procedure button-callback))) (define (run-type-page partition) "Run a page asking the user to select a partition type." |