blob: 6df0bdbbdb425b630a44beb4c500a0ada4567bfd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(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*))))
|
