From cc7693af38d6a98f15e00927f1de1e1c5a11043e Mon Sep 17 00:00:00 2001 From: "Collin J. Doering" Date: Thu, 21 Mar 2024 19:32:44 -0400 Subject: [PATCH] balg02: Make minor adjusting to allow for testing * .guix/guix-na/config/balg02.scm (guix-na): Add function balg02 which parameterized the disk that the bootloader (grub) is installed to. This enables testing in a vm where the disk may not match what is used on the physical server. --- .guix/guix-na/config/balg02.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/.guix/guix-na/config/balg02.scm b/.guix/guix-na/config/balg02.scm index e41333a..b52f4be 100644 --- a/.guix/guix-na/config/balg02.scm +++ b/.guix/guix-na/config/balg02.scm @@ -27,11 +27,11 @@ #:use-module (gnu services networking) #:use-module (gnu services ssh) #:use-module (gnu services web) - #:export (%system)) + #:export (balg02 %system)) (define %automation-user "auto") -(define %system +(define (balg02 disk) (operating-system (host-name "balg02") (timezone "US/Central") @@ -44,7 +44,7 @@ (terminal-outputs '(console serial_1)) (serial-unit 1) (serial-speed 115200) - (targets '("/dev/sda")))) + (targets `(,disk)))) (file-systems (append (list (file-system @@ -117,3 +117,5 @@ (name-servers '("216.37.64.2" "216.37.64.3"))))) (service ntp-service-type)) %base-services)))) + +(define %system (balg02 "/dev/sda"))