From 1c44bce852ce178f1c8df5fc59dccd3fe6883d73 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Wed, 24 Jul 2024 18:09:07 +0200 Subject: feat!: add kernel* argument to %suweren-operating-system --- suweren/system.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'suweren') diff --git a/suweren/system.scm b/suweren/system.scm index bdc8d87..2fb5524 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -81,12 +81,14 @@ (login-configuration (inherit configuration) (allow-empty-passwords? #f))) +;; record package -> ;; record bootloader-configuration -> ;; string -> ;; (record file-system) -> ;; (record user-account) -> ;; record operating-system -(define-public (%suweren-operating-system bootloader-configuration* +(define-public (%suweren-operating-system kernel* + bootloader-configuration* host-name* file-systems* users*) @@ -111,7 +113,8 @@ suweren-services)) (users* (append %base-user-accounts users*))) - (operating-system (bootloader bootloader-configuration*) + (operating-system (kernel kernel*) + (bootloader bootloader-configuration*) (host-name host-name*) (file-systems file-systems*) (users users*) -- cgit v1.2.3