(define-module (suweren system) #:use-module (gnu system) ; operating-system #:use-module (gnu system shadow) ; %base-user-accounts ) ;; 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*) (let ((users* (append %base-user-accounts users*))) (operating-system (bootloader bootloader-configuration*) (host-name host-name*) (file-systems file-systems*) (users users*))))