13 lines
411 B
Scheme
13 lines
411 B
Scheme
|
(use-modules (system base-system)
|
||
|
|
(guix gexp)
|
||
|
|
(guix records)
|
||
|
|
(gnu packages virtualization)
|
||
|
|
(gnu services shepherd)
|
||
|
|
(ice-9 match))
|
||
|
|
|
||
|
|
(operating-system
|
||
|
|
(inherit base-server-system)
|
||
|
|
(host-name (string-append "qemu." %domain-name))
|
||
|
|
(packages (append (list qemu) %my-server-packages))
|
||
|
|
(services (append (list (service )) %my-server-services)))
|