aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-04-27 17:39:42 +0200
committerMathieu Othacehe <othacehe@gnu.org>2021-04-28 15:52:20 +0200
commit2b645e359e18742c7aed90eeb96a412ae5130a5a (patch)
treec51b99976cfb1c0a3a0546da12da1545ede5a637
parent42ac8da474ff71fcbbfc6569a3a7e6f7e6e123e6 (diff)
downloadguix-2b645e359e18742c7aed90eeb96a412ae5130a5a.tar
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.scm17
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."