37/68: installer: Reorder partitionment step.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 5bfdde503e0ce3b6518a247e01082848a23aa056
Author: Mathieu Othacehe <address@hidden>
Date:   Wed Dec 5 17:49:56 2018 +0900

    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.
---
 gnu/installer.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/gnu/installer.scm b/gnu/installer.scm
index 80b5782..586ed29 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)