fix: incorporate %base-user-accounts in %suweren-operating-system

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*))))