From 1ed4adf4d06704f8666c7996a469609df95e8cc8 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Mon, 22 Jul 2024 15:58:48 +0200 Subject: fix: incorporate %base-user-accounts in %suweren-operating-system --- suweren/system.scm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) (limited to 'suweren') 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*)))) -- cgit v1.2.3