On Sun, 2021-01-31 at 22:49 +0300, Oleg Pykhalov wrote: > (operating-system > > (inherit base-system) > > (essential-services > > (modify-services (operating-system-default-essential-services > base-system) > > (shepherd-root-service-type config => (shepherd-configuration > > (inherit config) > > (shepherd shepherd)))))))
I'm currently running "guix time-machine etcetera", which hasn't completed yet, but here's some quick speculation on what could have went wrong: You shouldn't write (operating-system-default-essential-services base-system), but rather (operating-system-default-essential-services this-operating-system). The essential-services field is thunked, basically that means that the expression under essential-services can refer to the operating-system definition itself, using the macro this-operating-system. A potentially fixed configuration is attached, I'll try to run it in a VM.
;; Generation 120 Jan 31 2021 01:15:12 (current) ;; guix eb6b061 ;; repository URL: https://git.savannah.gnu.org/git/guix.git ;; branch: master ;; commit: eb6b061320418fdbd49ecb72c366e43ff7a38dbc ;; ;; env GUIX_PACKAGE_PATH=$PWD guix system build vm-image.tmpl ;; env GUIX_PACKAGE_PATH=$PWD guix system vm vm-image.tmpl (use-modules (gnu) (guix) (srfi srfi-1)) (use-service-modules shepherd networking ssh) (use-package-modules admin bootloaders certs nano) (operating-system (host-name "gnu") (timezone "Etc/UTC") (locale "en_US.utf8") (firmware '()) ;; Below we assume /dev/vda is the VM's hard disk. ;; Adjust as needed. (bootloader (bootloader-configuration (bootloader grub-bootloader) (target "/dev/vda") (terminal-outputs '(console)))) (file-systems (cons (file-system (mount-point "/") (device "/dev/vda1") (type "ext4")) %base-file-systems)) (users (cons (user-account (name "guest") (comment "GNU Guix Live") (password "") ;no password (group "users") (supplementary-groups '("wheel" "netdev" "audio" "video"))) %base-user-accounts)) ;; Our /etc/sudoers file. Since 'guest' initially has an empty password, ;; allow for password-less sudo. (sudoers-file (plain-file "sudoers" " root ALL=(ALL) ALL %wheel ALL=NOPASSWD: ALL\n")) (packages (append (list nano nss-certs) %base-packages)) (essential-services (modify-services (operating-system-default-essential-services this-operating-system) (shepherd-root-service-type config => (shepherd-configuration (inherit config) (shepherd shepherd))))) (services (append (list ;; Uncomment the line below to add an SSH server. ;;(service openssh-service-type) ;; Use the DHCP client service rather than NetworkManager. (service dhcp-client-service-type)) ;; Remove GDM, ModemManager, NetworkManager, and wpa-supplicant, ;; which don't make sense in a VM. (remove (lambda (service) (let ((type (service-kind service))) (or (memq type (list wpa-supplicant-service-type network-manager-service-type modem-manager-service-type)) (eq? 'network-manager-applet (service-type-name type))))) %base-services))))
signature.asc
Description: This is a digitally signed message part
