guix system: Fix bootloader config file generation by 'guix system roll-back'.
Fixes <https://bugs.gnu.org/33623>.
Reported by Diego Nicola Barbato <dnbarbato@posteo.de>.
Regression introduced in commit
46c296dcc4
.
* guix/scripts/system.scm (reinstall-bootloader): Add call to
'lower-object'.
This commit is contained in:
parent
6eac835f17
commit
6ddc63e599
|
@ -497,9 +497,10 @@ STORE is an open connection to the store."
|
||||||
(old-entries (map boot-parameters->menu-entry old-params)))
|
(old-entries (map boot-parameters->menu-entry old-params)))
|
||||||
(run-with-store store
|
(run-with-store store
|
||||||
(mlet* %store-monad
|
(mlet* %store-monad
|
||||||
((bootcfg ((bootloader-configuration-file-generator bootloader)
|
((bootcfg (lower-object
|
||||||
|
((bootloader-configuration-file-generator bootloader)
|
||||||
bootloader-config entries
|
bootloader-config entries
|
||||||
#:old-entries old-entries))
|
#:old-entries old-entries)))
|
||||||
(bootcfg-file -> (bootloader-configuration-file bootloader))
|
(bootcfg-file -> (bootloader-configuration-file bootloader))
|
||||||
(target -> "/")
|
(target -> "/")
|
||||||
(drvs -> (list bootcfg)))
|
(drvs -> (list bootcfg)))
|
||||||
|
|
Loading…
Reference in New Issue