summaryrefslogtreecommitdiff
path: root/guix/scripts/system.scm
diff options
context:
space:
mode:
authorMiguel Ángel Arruga Vivas <rosen644835@gmail.com>2019-04-22 14:44:22 +0200
committerMiguel Ángel Arruga Vivas <rosen644835@gmail.com>2020-10-18 15:33:05 +0200
commiteaf096398349a484bd23fd829755f7dfaf237ab4 (patch)
tree53807d5796f6c72971c49f42a05eeffe30db0e63 /guix/scripts/system.scm
parent9d449b945bbad5b7c66ed874b347f7f0ffd012e1 (diff)
downloadguix-patches-eaf096398349a484bd23fd829755f7dfaf237ab4.tar
guix-patches-eaf096398349a484bd23fd829755f7dfaf237ab4.tar.gz
system: Provide locale information to the bootloader.
* gnu/machine/ssh.scm (roll-back-managed-host): Use locale information from boot-parameters. * gnu/system.scm (operating-system-bootcfg): Provide locale information to the bootloader. * guix/system/script.scm (reinstall-bootloader): Use locale information from boot-parameters.
Diffstat (limited to 'guix/scripts/system.scm')
-rw-r--r--guix/scripts/system.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 939559e719..9ed5c26483 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -384,6 +384,7 @@ STORE is an open connection to the store."
;; Make the specified system generation the default entry.
(params (first (profile-boot-parameters %system-profile
(list number))))
+ (locale (boot-parameters-locale params))
(old-generations
(delv number (reverse (generation-numbers %system-profile))))
(old-params (profile-boot-parameters
@@ -396,6 +397,7 @@ STORE is an open connection to the store."
((bootcfg (lower-object
((bootloader-configuration-file-generator bootloader)
bootloader-config entries
+ #:locale locale
#:old-entries old-entries)))
(drvs -> (list bootcfg)))
(mbegin %store-monad