(use-modules (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)))