bug#33262: guix fails to find and use some available substitutes

[George Clemmer <myglc2@gmail.com>]

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


Oops, the server config attached to the previous email is incorrect,
sorry.  Here is the correct one:


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

;; g1: GuixSD headless server w/ NVMe M.2 SSD root drive
(define sys-packages
  '(
    "cups"
    "emacs-ag"
    "emacs-no-x"
    "emacs-guix"
    "emacs-paredit"
    "freeipmi"
    "git"
    "glibc-utf8-locales"
    "magit"
    "mdadm"
    "mosh"
    "nss-certs"
    "openssh"
    "qemu"
    "screen"
    "smartmontools"
    "virt-viewer"       ;; remote-viewer > spice > VM
    ))
(use-modules (gnu))
(use-modules (gnu packages))
(use-modules (gnu system nss)) ; name service switch
(use-service-modules
 admin                ; rottlog
 avahi
 networking           ; static, ntp
 ssh                  ; openssh-service-type
 mcron
 )
(define updatedb-job
  ;; Run 'updatedb' at 3AM every day.
  #~(job '(next-hour '(3))
	 (lambda ()
	   (execl (string-append #$findutils "/bin/updatedb")
		  "updatedb"
		  "--prunepaths=/tmp /var/tmp /gnu/store"))))
(define garbage-collector-job
  ;; Collect garbage 45 minutes after midnight every day.
  #~(job "45 0 * * *"            ;Vixie cron syntax
	 "guix gc -F 1G"))
(define backup-job
  ;; backup ssd 5 minutes after midnight every day.
  #~(job "5 0 * * *"            ;Vixie cron syntax
	 "/root/bin/bussd"))
(define %my-services
  (modify-services %base-services
		   (agetty-service-type config =>
					(agetty-configuration
					 (tty "ttyS1")
					 (baud-rate "115200")
					 (term "xterm-256color")))
		   (guix-service-type config =>
				      (guix-configuration
				       (inherit config)
				       (substitute-urls (list "http://g1.local:8080"
							      "https://mirror.hydra.gnu.org"					       
							      "https://hydra.gnu.org"
							      "https://berlin.guixsd.org"
					       ))))))
(operating-system
 (host-name "g1")
 (timezone "America/New_York")
 (locale "en_US.utf8")
 (kernel-arguments '("console=ttyS1,115200"))
 ;; NVMe M.2 SSD root drive
 (bootloader (grub-configuration (target "/dev/nvme0n1")
				 (terminal-outputs '(console))
				 (terminal-inputs '(serial console))
				 (serial-speed 115200)
				 ))
 (file-systems (cons (file-system
		      (device (file-system-label "g1NVMe"))
		      (mount-point "/")
		      (type "ext4"))
		     %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 "al")
			     (group "users")
			     (supplementary-groups '("wheel" "kvm"))
			     (home-directory (string-append "/home/" name)))
	       (user-account (name "glc")
			     (group "users")
			     (supplementary-groups '("wheel" "kvm"))
			     (home-directory (string-append "/home/" name)))
	       %base-user-accounts))
 (packages (append (map specification->package
			sys-packages)
		   %base-packages))
 (services (cons* (static-networking-service
		   "enp3s0" "192.168.1.7"
		   #:gateway "192.168.1.1"
		   #:name-servers '("192.168.1.1" "46.17.102.24"))
		  (service openssh-service-type
			   (openssh-configuration
			    (x11-forwarding? #t)
			    (permit-root-login #t)
			    (authorized-keys
			     `(
			       ("g1" ,(local-file "glc.pub"))
			       ("glc" ,(local-file "glc.pub"))
			       ("root" ,(local-file "glc.pub"))))))
		  (service rottlog-service-type)
		  (mcron-service (list garbage-collector-job
				       updatedb-job
				       backup-job))
		  (avahi-service)
		  (ntp-service)
		  (service guix-publish-service-type
			   (guix-publish-configuration
			    (host "0.0.0.0")
			    (port 8080)))		  
		  %my-services))
 (name-service-switch %mdns-host-lookup-nss))