From 3c3290170b3ecf58229e084a31a3563c9b40d293 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 29 May 2026 00:09:58 +0200 Subject: (system mcdowell): fix bootloader installation --- deployment/system/mcdowell.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'deployment/system') diff --git a/deployment/system/mcdowell.scm b/deployment/system/mcdowell.scm index 859c1b6..d9f2ba8 100644 --- a/deployment/system/mcdowell.scm +++ b/deployment/system/mcdowell.scm @@ -59,11 +59,12 @@ (define file-system-efi (let* - ( (l-system-name (string-upcase system-name)) - (l-device (sovereign:system:file-systems:file-system-label* "BOOT"))) + ( (l-system-name (string-upcase system-name)) + (l-device (sovereign:system:file-systems:file-system-label* system-name))) (gnu:system:file-systems:file-system - (inherit sovereign:system:file-systems:file-system/efi) - (device l-device)))) + (inherit sovereign:system:file-systems:file-system/efi) + (device l-device) + (mount-point "/boot/EFI")))) (define file-system-root (let @@ -99,7 +100,7 @@ (let* ( (l-guix-homes (list users:id1000:named-home-environment)) (l-guix-home-service (sovereign:systems:guix-home-service l-guix-homes)) - (l-bootloader (custom-bootloader-configuration (list))) + (l-bootloader (custom-bootloader-configuration (list "/dev/sdb"))) (l-file-systems (cons* file-system-root file-system-efi gnu:system:file-systems:%base-file-systems)) -- cgit v1.3