diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-07-24 18:09:07 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-07-24 18:14:34 +0200 |
| commit | 1c44bce852ce178f1c8df5fc59dccd3fe6883d73 (patch) | |
| tree | 71c2dede87498bb9574a0a31cfdf8645d13e88eb /suweren | |
| parent | b6cf2a99e0b384dcda1d20b0c3bf24b753f5029e (diff) | |
feat!: add kernel* argument to %suweren-operating-system
Diffstat (limited to 'suweren')
| -rw-r--r-- | suweren/system.scm | 7 |
1 files changed, 5 insertions, 2 deletions
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*) |