[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: hydra: berlin-build-machine-os: Use bootloader-configuration.
From: |
Ricardo Wurmus |
Subject: |
04/05: hydra: berlin-build-machine-os: Use bootloader-configuration. |
Date: |
Sat, 25 Nov 2017 11:36:00 -0500 (EST) |
rekado pushed a commit to branch master
in repository maintenance.
commit b1ae38aefb1106dffa05a1a56641a60cc0c7f9d4
Author: Ricardo Wurmus <address@hidden>
Date: Sat Nov 25 17:33:19 2017 +0100
hydra: berlin-build-machine-os: Use bootloader-configuration.
* hydra/modules/sysadmin/build-machines.scm (berlin-build-machine-os):
Use bootloader-configuration.
---
hydra/modules/sysadmin/build-machines.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/hydra/modules/sysadmin/build-machines.scm
b/hydra/modules/sysadmin/build-machines.scm
index 4b86e6c..44cd415 100644
--- a/hydra/modules/sysadmin/build-machines.scm
+++ b/hydra/modules/sysadmin/build-machines.scm
@@ -89,9 +89,11 @@ the given AUTHORIZED-GUIX-KEYS."
(apply base-initrd fs
#:extra-modules (list "sata_nv")
args)))
- (bootloader (grub-configuration (device "/dev/sda")
- (terminal-inputs '(serial))
- (terminal-outputs '(serial))))
+ (bootloader (bootloader-configuration
+ (bootloader grub-bootloader)
+ (target "/dev/sda")
+ (terminal-inputs '(serial))
+ (terminal-outputs '(serial))))
(file-systems (cons (file-system
(device "my-root")
(title 'label)