diff options
Diffstat (limited to 'suweren')
| -rw-r--r-- | suweren/system.scm | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/suweren/system.scm b/suweren/system.scm index 8bf5a49..6df0bdb 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -1,13 +1,20 @@ (define-module (suweren system) #:use-module (gnu system) ; operating-system + #:use-module (gnu system shadow) ; %base-user-accounts ) -;; string -> record operating-system +;; record bootloader-configuration -> +;; string -> +;; (record file-system) -> +;; (record user-account) -> +;; record operating-system (define-public (%suweren-operating-system bootloader-configuration* host-name* file-systems* users*) - (operating-system (bootloader bootloader-configuration*) - (host-name host-name*) - (file-systems file-systems*) - (users users*))) + (let ((users* (append %base-user-accounts + users*))) + (operating-system (bootloader bootloader-configuration*) + (host-name host-name*) + (file-systems file-systems*) + (users users*)))) |