01/03: installer: Force GPT disk label when UEFI is supported.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 3f8ea83e2afecbe08e020a8b93c69cd99f40fcf0
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Apr 27 17:39:42 2021 +0200

    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.
---
 gnu/installer/newt/partition.scm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 81cf68d..2bb9b16 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."