summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/scripts/system.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index d92ec7d5a5..8eb32c62bc 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -497,9 +497,10 @@ STORE is an open connection to the store."
(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)))