`sudo guix system reconfigure config.scm` fails on Guix commit 177bc62.
I'm attaching my config.scm. Here is my backtrace:
---BEGIN---
/home/luther/config.scm:40:4: warning: 'title' field is deprecated
Backtrace:
In gnu/services.scm:
778:26 19 (loop #<<service> type: #<service-type account 1f9fa00>…>)
In srfi/srfi-1.scm:
592:29 18 (map1 (#<<service> type: #<service-type guix 27edc80…> …))
592:29 17 (map1 (#<<service> type: #<service-type ntp 27ed5a0>…> …))
592:17 16 (map1 (#<<service> type: #<service-type dbus 27ed9b0…> …))
In gnu/services.scm:
778:26 15 (loop #<<service> type: #<service-type dbus 27ed9b0> va…>)
In srfi/srfi-1.scm:
592:29 14 (map1 (#<<service> type: #<service-type elogind 27ed…> …))
592:17 13 (map1 (#<<service> type: #<service-type polkit 27ed9…> …))
In gnu/services.scm:
778:26 12 (loop #<<service> type: #<service-type polkit 27ed960> …>)
In srfi/srfi-1.scm:
592:29 11 (map1 (#<<service> type: #<service-type elogind 27ed…> …))
592:29 10 (map1 (#<<service> type: #<service-type colord 27ed0…> …))
592:29 9 (map1 (#<<service> type: #<service-type cups-pk-help…> …))
592:29 8 (map1 (#<<service> type: #<service-type accountsserv…> …))
592:29 7 (map1 (#<<service> type: #<service-type udisks 27ed0…> …))
592:29 6 (map1 (#<<service> type: #<service-type network-mana…> …))
592:29 5 (map1 (#<<service> type: #<service-type gnome-deskto…> …))
592:17 4 (map1 (#<<service> type: #<service-type localed 27ed82…>))
In gnu/services.scm:
778:26 3 (loop #<<service> type: #<service-type localed 27ed820>…>)
In srfi/srfi-1.scm:
592:17 2 (map1 (#<<service> type: #<service-type gdm 27ed730> v…>))
In gnu/services.scm:
787:37 1 (loop #<<service> type: #<service-type gdm 27ed730> val…>)
In unknown file:
0 (car ())
ERROR: In procedure car:
In procedure car: Wrong type (expecting pair): ()
---END---
Luther
(use-modules ((gnu) #:select (use-package-modules use-service-modules))
((gnu bootloader) #:select (bootloader-configuration))
((gnu bootloader grub) #:select (grub-bootloader))
((gnu packages base) #:select (coreutils))
((gnu packages android) #:select (android-udev-rules))
((gnu services base)
#:select
(guix-configuration
guix-service-type
udev-configuration
udev-configuration-rules
udev-service-type))
((gnu services xorg)
#:select
(gdm-configuration
gdm-service-type
;;slim-configuration
;;slim-service-type
xorg-configuration))
((gnu system file-systems)
#:select (file-system %base-file-systems))
((gnu system keyboard) #:select (keyboard-layout))
((gnu system nss) #:select (%mdns-host-lookup-nss))
((guix gexp) #:select (file-append)))
(use-service-modules desktop)
(use-package-modules certs gnome)
(operating-system
(host-name "targaryen")
(timezone "America/New_York")
(keyboard-layout (keyboard-layout "us" "dvorak"))
(bootloader
(bootloader-configuration (bootloader grub-bootloader)
(target "/dev/sda")
(keyboard-layout keyboard-layout)))
(file-systems
(cons
(file-system (device "my-root")
(mount-point "/")
(type "ext4")
(title 'label))
%base-file-systems))
;; Needed to connect to a phone.
(groups (cons (user-group (name "adbusers") (system? #t)) %base-groups))
(users
(cons
(user-account (name "luther")
(comment "Luther Thompson")
(group "users")
(supplementary-groups
'("wheel" "netdev" "audio" "video" "cdrom" "adbusers"))
(home-directory "/home/luther"))
%base-user-accounts))
;; This is where we specify system-wide packages.
(packages (cons* nss-certs ;for HTTPS access
gvfs ;for user mounts
%base-packages))
(services
(cons* (service gnome-desktop-service-type)
(extra-special-file "/usr/bin/env" (file-append coreutils "/bin/env"))
(modify-services %desktop-services
(udev-service-type config =>
(udev-configuration (inherit config)
(rules
(cons*
android-udev-rules
(udev-configuration-rules
config)))))
(gdm-service-type config =>
(gdm-configuration
(xorg-configuration
(xorg-configuration
(keyboard-layout
keyboard-layout)
(extra-config
'(
"Section \"InputClass\"
Identifier \"Touchpads\"
Driver \"libinput\"
MatchIsTouchpad \"on\"
Option \"DisableWhileTyping\" \"on\"
Option \"HorizontalScrolling\" \"off\"
Option \"Tapping\" \"on\"
EndSection"))))))
(guix-service-type config =>
(guix-configuration
(inherit config)
(substitute-urls
'("https://ci.guix.info";
"https://berlin.guixsd.org";
"https://mirror.hydra.gnu.org";
"https://hydra.gnu.org";)))))))
;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss)
(swap-devices '("/swapfile")))
;; Local Variables:
;; eval: (guix-devel-mode 1)
;; End:
