bug#30467: GuixSD fails to display login prompt on headless server

[George myglc2 Clemmer <myglc2@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 604 bytes --]

GuixSD fails to display login prompt on headless server

This was working in (GNU Guix) 0.13.0.4589-74bea6
ae0307f7c tests: Adjust to new unbound-variable error message.

It fails in guix (GNU Guix) 0.13.0.5042-6e385.
6e385b76e gnu: mongodb: Use scons-build-system.

System Generation on g1:
     19            GNU with Linux-Libre 4.14.2 (beta)           61 2017-11-30 19:18:15
     18            GNU with Linux-Libre 4.13.12 (beta)          62 2017-11-11 13:05:56

I just noticed this or I would have reported sooner.

Can check/test on either generation if it would be of help.

TIA - George

config:

[-- Attachment #2: sys.scm --]
[-- Type: application/octet-stream, Size: 2053 bytes --]

;;; GuixSD headless server
(use-modules (gnu))
(use-service-modules networking ssh)
(use-package-modules
 admin
 base
 certs
 cups
 disk
 emacs
 freeipmi
 linux
 virtualization
 rsync
 screen
 ssh
 version-control
 wget
 xorg 
 )
(operating-system
  (host-name "g1")
  (timezone "America/New_York")
  (locale "en_US.utf8")
  (kernel-arguments '("console=ttyS1,115200"))
  ;; RAID1 root using 1 NVMe SSD + 2 HDs
  (bootloader (grub-configuration (target "/dev/nvme0n1")
				  (terminal-outputs '(console))
				  (terminal-inputs '(serial console))
				  (serial-speed 115200)				  
				  ))
  (initrd (lambda (file-systems . rest) (apply base-initrd file-systems
					       #:extra-modules '("raid1")
					       rest)))
  (mapped-devices (list (mapped-device
			 (source '("/dev/nvme0n1p1" "/dev/sda1" "/dev/sdb1"))
			 (target "/dev/md3")
			 (type raid-device-mapping))))
  (file-systems (cons (file-system
			(title 'device)
			(device "/dev/md3")
			(mount-point "/")
			(type "ext4")
			(dependencies mapped-devices))
		      %base-file-systems))
  (swap-devices '("/dev/nvme0n1p2" ))
  (users (cons* (user-account (name "g1")
			      (group "users")
			      (supplementary-groups '("wheel" "kvm"))
			      (home-directory (string-append "/home/" name)))
		(user-account (name "admin")
			      (group "users")
			      (supplementary-groups '("wheel" "kvm"))
			      (home-directory (string-append "/home/" name)))
		%base-user-accounts))
  (packages (cons*
	     cups
	     emacs-no-x-toolkit
	     emacs-guix
	     emacs-zenburn-theme
	     freeipmi
	     git
	     glibc-utf8-locales
	     gnu-make
	     mdadm
	     magit
	     nss-certs
	     openssh
	     parted
	     qemu
	     rsync
	     screen
	     smartmontools
	     tree
	     wget
	     xauth
	     %base-packages))
  (services (cons* (dhcp-client-service)
		   (ntp-service)
		   (service openssh-service-type (openssh-configuration
						  (x11-forwarding? #t)))
		   (agetty-service (agetty-configuration (tty "ttyS1")
							 (baud-rate "115200")))
		   %base-services)))