Hello Guix,

I'm trying to reconfigure but I get this error:

--8<---------------cut here---------------start------------->8---

~$ sudo -i guix system reconfigure /etc/config.scm 
Backtrace:
          14 (primitive-load "/root/.config/guix/current/bin/guix")
In guix/ui.scm:
  1620:12 13 (run-guix-command _ . _)
In ice-9/boot-9.scm:
    829:9 12 (catch _ _ #<procedure 7f43d8f15c80 at guix/ui.scm:587…> …)
    829:9 11 (catch _ _ #<procedure 7f43d8f15c98 at guix/ui.scm:710…> …)
In guix/scripts/system.scm:
   1325:8 10 (_)
In guix/status.scm:
    768:4  9 (call-with-status-report _ _)
In guix/scripts/system.scm:
   1181:4  8 (process-action _ _ _)
In guix/store.scm:
   623:10  7 (call-with-store _)
  1800:24  6 (run-with-store _ _ #:guile-for-build _ #:system _ # _)
In guix/scripts/system.scm:
  1197:13  5 (_ _)
   890:18  4 (perform-action reconfigure #<<operating-system> kerne…> …)
In gnu/system.scm:
   865:19  3 (operating-system-derivation _)
In gnu/services.scm:
    738:6  2 (instantiate-missing-services _)
In srfi/srfi-1.scm:
   466:18  1 (fold #<procedure 7f43cde31d60 at gnu/services.scm:738…> …)
In gnu/services.scm:
   739:27  0 (_ (#<<service> type: #<service-type login 1105dc0>…> …) …)

gnu/services.scm:739:27: In procedure struct_vtable: Wrong type argument in position 1 (expecting struct): (#<<service> type: #<service-type login 1105dc0> value: #<<login-configuration> motd: #<<plain-file> name: "motd" content: "This is the GNU operating system, welcome!\n\n" references: ()> allow-empty-passwords?: #t>> #<<service> type: #<service-type virtual-terminal 1105eb0> value: #t> #<<service> type: #<service-type console-fonts 1105e10> value: (("tty1" . "LatGrkCyr-8x16") ("tty2" . "LatGrkCyr-8x16") ("tty3" . "LatGrkCyr-8x16") ("tty4" . "LatGrkCyr-8x16") ("tty5" . "LatGrkCyr-8x16") ("tty6" . "LatGrkCyr-8x16"))> #<<service> type: #<service-type agetty 1105d70> value: #<<agetty-configuration> agetty: #<package util-linux@2.32.1 gnu/packages/linux.scm:733 2653b00> tty: #f term: "vt100" baud-rate: #f auto-login: #f login-program: #<file-append #<package shadow@4.6 gnu/packages/admin.scm:439 27edbb0> "/bin/login"> login-pause?: #f eight-bits?: #f no-reset?: #f remote?: #f flow-control?: #f host: #f no-issue?: #f init-string: #f no-clear?: #f local-line: #f extract-baud?: #f skip-login?: #f no-newline?: #f login-options: #f chroot: #f hangup?: #f keep-baud?: #f timeout: #f detect-case?: #f wait-cr?: #f no-hints?: #f no-hostname?: #f long-hostname?: #f erase-characters: #f kill-characters: #f chdir: #f delay: #f nice: #f extra-options: ("-L")>> #<<service> type: #<service-type mingetty 1105d20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:496 27edb00> tty: "tty1" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 1105d20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:496 27edb00> tty: "tty2" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 1105d20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:496 27edb00> tty: "tty3" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 1105d20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:496 27edb00> tty: "tty4" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 1105d20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:496 27edb00> tty: "tty5" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 1105d20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:496 27edb00> tty: "tty6" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type static-networking 1105a00> value: (#<<static-networking> interface: "lo" ip: "127.0.0.1" netmask: #f gateway: #f provision: (loopback) requirement: () name-servers: ()>)> #<<service> type: #<service-type syslog 1105c80> value: #<<syslog-configuration> syslogd: #<file-append #<package inetutils@1.9.4 gnu/packages/admin.scm:405 27edc60> "/libexec/syslogd"> config-file: #<<plain-file> name: "syslog.conf" content: "\n     # Log all error messages, authentication messages of\n     # level notice or higher and anything of level err or\n     # higher to the console.\n     # Don't log private authentication messages!\n     *.alert;auth.notice;authpriv.none       /dev/console\n\n     # Log anything (except mail) of level info or higher.\n     # Don't log private authentication messages!\n     *.info;mail.none;authpriv.none          /var/log/messages\n\n     # Like /var/log/messages, but also including \"debug\"-level logs.\n     *.debug;mail.none;authpriv.none         /var/log/debug\n\n     # Same, in a different place.\n     *.info;mail.none;authpriv.none          /dev/tty12\n\n     # The authpriv file has restricted access.\n     authpriv.*                              /var/log/secure\n\n     # Log all the mail messages in one place.\n     mail.*                                  /var/log/maillog\n" references: ()>>> #<<service> type: #<service-type urandom-seed 15e8e60> value: #f> #<<service> type: #<service-type guix 1105be0> value: #<<guix-configuration> guix: #<package guix@1.0.1-3.4a54ed7 gnu/packages/package-management.scm:116 1a179a0> build-group: "guixbuild" build-accounts: 10 authorize-key?: #t authorized-keys: (#<<local-file> file: "keys/guix/roquette.mug.biscuolo.net.pub" absolute: #<promise #<procedure 7f43d43bb600 at /etc/config.scm:9:8 ()>> name: "roquette.mug.biscuolo.net.pub" recursive?: #f select?: #<procedure true (file stat)>> #<<local-file> file: "keys/guix/renaissanceFIXME.mug.biscuolo.net.pub" absolute: #<promise #<procedure 7f43d43bb630 at /etc/config.scm:10:8 ()>> name: "renaissanceFIXME.mug.biscuolo.net.pub" recursive?: #f select?: #<procedure true (file stat)>>) use-substitutes?: #t substitute-urls: ("https://ci.guix.gnu.org") chroot-directories: () max-silent-time: 0 timeout: 0 log-compression: bzip2 extra-options: () log-file: "/var/log/guix-daemon.log" http-proxy: #f tmpdir: #f>> #<<service> type: #<service-type nscd 1105cd0> value: #<<nscd-configuration> log-file: "/var/log/nscd.log" debug-level: 0 caches: (#<<nscd-cache> database: hosts positive-time-to-live: 43200 negative-time-to-live: 20 suggested-size: 211 check-files?: #t persistent?: #t shared?: #t max-database-size: 33554432 auto-propagate?: #t> #<<nscd-cache> database: services positive-time-to-live: 86400 negative-time-to-live: 3600 suggested-size: 211 check-files?: #t persistent?: #t shared?: #t max-database-size: 33554432 auto-propagate?: #t>) name-services: () glibc: #<package glibc@2.28 gnu/packages/commencement.scm:681 1e398f0>>> #<<service> type: #<service-type udev 1105b40> value: #<<udev-configuration> udev: #<package eudev@3.2.8 gnu/packages/linux.scm:2268 265b000> rules: (#<package lvm2@2.02.177 gnu/packages/linux.scm:2336 2661e70> #<package fuse@2.9.8 gnu/packages/linux.scm:1825 265b8f0> #<package alsa-utils@1.1.9 gnu/packages/linux.scm:1200 2653210> #<package crda@3.18 gnu/packages/linux.scm:2472 2661c60>)>> #<<service> type: #<service-type special-files 15e85f0> value: (("/bin/sh" #<file-append #<package bash@4.4.23 gnu/packages/bash.scm:123 2711370> "/bin/sh">))>)
--8<---------------cut here---------------end--------------->8---

Since everytime I try to purposely add a syntax error or miss to add a
module guix correctly point that out, I doubt it depends on some error
in my config.scm... or am I wrong?

Anyway, this is my slightly obfuscated config.scm:

--8<---------------cut here---------------start------------->8---
; This is batondor

(use-modules (gnu))
(use-service-modules networking ssh mcron virtualization)
(use-package-modules linux)

(define %authorized-guix-keys
  ;; List of authorized 'guix archive' keys.
  (list (local-file "keys/guix/OMISSIS.pub")
        (local-file "keys/guix/OMISSIS.pub")))

(define gc-job
  ;; Run 'guix gc' at 3AM every day.
  #~(job '(next-hour '(3)) "guix gc -F 50G"))

(define btrfs-job
  ;; Run 'btrfs balance' every three days to make free space.
  #~(job (lambda (now)
           (next-day-from now (range 1 31 3)))
         (string-append #$btrfs-progs "/bin/btrfs balance "
                        "start -dusage=50 -musage=70 /")))

;; The actual machine

(operating-system
 (locale "en_US.utf8")
 (timezone "Europe/Rome")
 (keyboard-layout
  (keyboard-layout "it" "nodeadkeys"))
 (bootloader
  (bootloader-configuration
   (bootloader grub-efi-bootloader)
   (target "/boot/efi")
   (keyboard-layout keyboard-layout)))
 (file-systems
  (cons* (file-system
	  (mount-point "/")
	  (device
	   (uuid "26bd54ec-4e74-4b3a-96ff-58f2f34e4a1a"
		 'btrfs))
	  (type "btrfs"))
	 (file-system
	  (mount-point "/boot/efi")
	  (device (uuid "7A61-DB20" 'fat32))
	  (type "vfat"))
	 %base-file-systems))
 (host-name "batondor")
 (users (cons* (user-account
		(name "x")
		(comment "XXXXXXXXXXXXXXXXX")
		(group "users")
		(home-directory "/home/x")
		(supplementary-groups
		 '("wheel" "kvm" "netdev" "audio" "video")))
	       %base-user-accounts))
 (packages
  (append
   (list (specification->package "nss-certs"))
   %base-packages))

 (services
  (append
   (list (service openssh-service-type
		  (openssh-configuration
		   (port-number 22)
		   (authorized-keys
		    `(("x" ,(local-file "keys/ssh/x.pub"))))))

	 (service dhcp-client-service-type)

	 (service ntp-service-type)

	 (service qemu-binfmt-service-type
		  (qemu-binfmt-configuration
		   (platforms (lookup-qemu-platforms "arm" "aarch64"))
		   (guix-support? #t)))

	 (service mcron-service-type
		  (mcron-configuration
		   (jobs (list gc-job btrfs-job))))

	 (modify-services %base-services
			  (guix-service-type config =>
					     (guix-configuration
					      (inherit config)
					      (use-substitutes? #t)
					      (authorized-keys
					       %authorized-guix-keys))))))))
--8<---------------cut here---------------end--------------->8---

Am I missing something or did I found a bug?

Thanks! Gio'.

-- 
Giovanni Biscuolo

Xelera IT Infrastructures