From 6ddc63e599a26c302f74d0622f67cfd987f0dc5f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 7 Dec 2018 15:12:21 +0100
Subject: [PATCH] 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
46c296dcc4817f15a4b4ef7e5ef622306b4db62e.
* guix/scripts/system.scm (reinstall-bootloader): Add call to
'lower-object'.
---
guix/scripts/system.scm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index d92ec7d5a52..8eb32c62bc4 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -497,9 +497,10 @@ (define (reinstall-bootloader store number)
(old-entries (map boot-parameters->menu-entry old-params)))
(run-with-store store
(mlet* %store-monad
- ((bootcfg ((bootloader-configuration-file-generator bootloader)
- bootloader-config entries
- #:old-entries old-entries))
+ ((bootcfg (lower-object
+ ((bootloader-configuration-file-generator bootloader)
+ bootloader-config entries
+ #:old-entries old-entries)))
(bootcfg-file -> (bootloader-configuration-file bootloader))
(target -> "/")
(drvs -> (list bootcfg)))
--
GitLab