summary refs log tree commit diff
path: root/gnu/installer.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-05 17:49:56 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:24 +0100
commit5bfdde503e0ce3b6518a247e01082848a23aa056 (patch)
treec10a5f99451dc02ce13e13765c15ffa7705eecfb /gnu/installer.scm
parent54754efc91e4862f5a904d53a82fcc59e19646a2 (diff)
downloadguix-5bfdde503e0ce3b6518a247e01082848a23aa056.tar.gz
installer: Reorder partitionment step.
* gnu/installer.scm (installer-steps): Run partitionment step after keymap
step, so that the keyboard is correctly mapped when filling the mount-point
entry in partitionment page.
Diffstat (limited to 'gnu/installer.scm')
-rw-r--r--gnu/installer.scm18
1 files changed, 9 insertions, 9 deletions
diff --git a/gnu/installer.scm b/gnu/installer.scm
index 80b5782202..586ed29a59 100644
--- a/gnu/installer.scm
+++ b/gnu/installer.scm
@@ -174,15 +174,6 @@ selected keymap."
                      ((installer-welcome-page current-installer)
                       #$(local-file "installer/aux-files/logo.txt")))))
 
-         ;; Run a partitionment tool allowing the user to modify
-         ;; partition tables, partitions and their mount points.
-         (installer-step
-          (id 'partition)
-          (description (G_ "Partitionment"))
-          (compute (lambda _
-                     ((installer-partition-page current-installer))))
-          (configuration-formatter user-partitions->configuration))
-
          ;; Ask the user to choose a locale among those supported by
          ;; the glibc.  Install the selected locale right away, so that
          ;; the user may benefit from any available translation for the
@@ -217,6 +208,15 @@ selected keymap."
           (compute (lambda _
                      (#$keymap-step current-installer))))
 
+         ;; Run a partitionment tool allowing the user to modify
+         ;; partition tables, partitions and their mount points.
+         (installer-step
+          (id 'partition)
+          (description (G_ "Partitionment"))
+          (compute (lambda _
+                     ((installer-partition-page current-installer))))
+          (configuration-formatter user-partitions->configuration))
+
          ;; Ask the user to input a hostname for the system.
          (installer-step
           (id 'hostname)