bug#31926: reconfigure is broken

[Clément Lassieur]

I'm on commit 1a5b0dfe06ff3b97b6394232f143b95c616890b3, I can't
reconfigure anymore.

--8<---------------cut here---------------start------------->8---
guix system: warning: Consider running 'guix pull' followed by
'guix system reconfigure' to get up-to-date packages and security updates.

guix system: warning: /home/clement/.config/guix/current not found: 'guix pull' 
was never run
guix system: warning: Consider running 'guix pull' before 'reconfigure'.
guix system: warning: Failing to do that may downgrade your system!
/gnu/store/dr4risay18kxb07z8nq3xngr42jf1nh2-system
/gnu/store/wjqf90rcp0rizycslnsynim9bkx3z5cj-grub.cfg
/gnu/store/26m7zjprd11qrhsqxml6882r516ikyzx-grub-2.02
/gnu/store/1mjx721h83hixvsw6lmhg074cmbi6nmy-bootloader-installer
Backtrace:
          11 (apply-smob/1 #<catch-closure c94120>)
In ice-9/boot-9.scm:
    705:2 10 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
    619:8  9 (_ #(#(#<directory (guile-user) d4c140>)))
In guix/ui.scm:
  1557:12  8 (run-guix-command _ . _)
In ice-9/boot-9.scm:
    829:9  7 (catch _ _ #<procedure 7f3c7c96e980 at guix/ui.scm:593…> …)
    829:9  6 (catch _ _ #<procedure 7f3c7c96e998 at guix/ui.scm:711…> …)
In guix/scripts/system.scm:
   1240:8  5 (_)
   1110:6  4 (process-action _ _ _)
In guix/store.scm:
  1414:24  3 (run-with-store _ _ #:guile-for-build _ #:system _ # _)
In guix/scripts/system.scm:
   873:13  2 (_ _)
    355:2  1 (_ _)
In unknown file:
           0 (_ #<build-daemon 256.97 3864f00>)

ERROR: Wrong type to apply: #<<scheme-file> name: "activate" gexp: #<gexp 
(begin (use-modules (gnu build activation) (guix build utils)) (close-port 
(open-file "/var/run/utmpx" "a0")) (mkdir-p "/var/log") (close-port (open-file 
"/var/log/wtmp" "a0")) (activate-current-system) (for-each primitive-load 
(quote #<gexp-input (#<<scheme-file> name: "activate-service" gexp: #<gexp 
(activate-firmware (string-append #<gexp-input #<<computed-file> name: 
"firmware" gexp: #<gexp (begin (use-modules (guix build union) (srfi srfi-1)) 
(union-build #<gexp-output out> (quote #<gexp-input (#<package address@hidden 
gnu/packages/firmware.scm:43 1e45a80> #<package address@hidden 
gnu/packages/firmware.scm:156 1e45900>):out>) #:log-port #<gexp-input #<gexp 
(current-error-port) 4563630>:out> #:symlink #<gexp-input #<gexp symlink 
4563660>:out> #:resolve-collision #<gexp-input warn-about-collision:out>)) 
4563540> guile: #f options: (#:local-build? #t)>:out> "/lib/firmware")) 
45634b0> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp 
(begin (activate-modprobe #<gexp-input #<<program-file> name: "modprobe" gexp: 
#<gexp (begin (setenv "LINUX_MODULE_DIRECTORY" 
"/run/booted-system/kernel/lib/modules") (apply execl #<gexp-input 
"/run/current-system/profile/bin/modprobe":out> (cons #<gexp-input 
"/run/current-system/profile/bin/modprobe":out> (cdr (command-line))))) 
1304a20> guile: #f path: ("/home/clement/.packages" "/home/clement/.guix" 
"/home/clement/.guix" "/home/clement/.guix-profile/share/guile/site/2.2" 
"/run/current-system/profile/share/guile/site/2.2" 
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/2.2" 
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site/2.2" 
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site" 
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile")>:out>) 
(activate-ptrace-attach)) 1304990> splice?: #f> #<<scheme-file> name: 
"activate-service" gexp: #<gexp  4563450> splice?: #f> #<<scheme-file> name: 
"activate-service" gexp: #<gexp (activate-etc #<gexp-input #<<computed-file> 
name: "etc" gexp: #<gexp  45747e0> guile: #f options: (#:local-build? 
#t)>:out>) 4574750> splice?: #f> #<<scheme-file> name: "activate-service" gexp: 
#<gexp  45c02d0> splice?: #f> #<<scheme-file> name: "activate-service" gexp: 
#<gexp (activate-special-files (quote #<gexp-input (("/bin/sh" #<<file-append> 
base: #<package address@hidden gnu/packages/bash.scm:119 2227300> suffix: 
("/bin/sh")>)):out>)) 45c0240> splice?: #f> #<<scheme-file> name: 
"activate-service" gexp: #<gexp  45d5db0> splice?: #f> #<<scheme-file> name: 
"activate-service" gexp: #<gexp (begin (use-modules (guix build utils)) (define 
(touch file-name) (call-with-output-file file-name (const #t))) (mkdir-p 
"/etc/ssh") (chmod "/etc/ssh" 493) (mkdir-p (dirname #<gexp-input 
"/var/run/sshd.pid":out>)) (catch (quote system-error) (lambda () 
(delete-file-recursively "/etc/authorized_keys.d")) (lambda args (unless (= 
ENOENT (system-error-errno args)) (apply throw args)))) (copy-recursively 
#<gexp-input #<<computed-file> name: "openssh-authorized-keys" gexp: #<gexp 
(begin (use-modules (ice-9 match) (srfi srfi-26) (guix build utils)) (mkdir 
#<gexp-output out>) (for-each (match-lambda ((user keys ...) (let ((file 
(string-append #<gexp-output out> "/" user))) (call-with-output-file file 
(lambda (port) (for-each (lambda (key) (call-with-input-file key (cut dump-port 
<> port))) keys)))))) (quote #<gexp-input (("clement" #<<plain-file> name: 
"clement" content: "ssh-rsa 
AAAAB3NzaC1yc2EAAAADAQABAAABAQC4yLOWrukPll9QbgSEeN8+E6cyr/TaPb7U1vcq0rU5zoOs2p38tqEUac5U/dyHgDW03iV+LLAq7CZX0IrJlQ8QZ4zPORpMQE3KcJOopKHtFUK7gCyA90a/8bZNm0riumGmbypimTbOTZkFqczMYlPaVTiVfwREbGgVNRgkf5B50M4VEgDXGDpmG0puex+cF+/W4S+3YJh07mGUOwhx2qSefJ2rNvMTQrP01kZpYquaB9nIS1k4zN1ftJH3Y/OIAQIbV1VaonVCv9Oxriy0PStxvCWkf2HhXhpoV/R2qCIstkb9YCZ4k5a2eANEsdw+iQware2N6GQjVX3a4bIRBHCf
 address@hidden 
AAAAB3NzaC1yc2EAAAADAQABAAABAQCXBYINeXwJR3g4s0dr/AjqylUE2lSOdYt499ZxNcQmZlGtpnvB9CRojL2w/XOH+pvVpg0F2lG2HphPfeJRSjIrfXj34BDl6Ql4X4TD+n41EvUd1QfY/MZtkHiYp/BhyPHOixT4VZo4lM/NagSUU/JFHA9D5sEXeLrbQwB0972Fj0x+183mkdaiFTlkMrrMJ9/zj+hnSTGLmSpoxhS6ZR+DBaRWrcG2DPk9ISAn7BV54UQLFA9Gh8ksuUQFQGMc+AaC+NKs7OdT55WP2E4JHewe0cQtsa6jVCnMsNL1kB1w7bpn07LB5t/ydeClGlRRZXWgV4qnOYF2/m+gCust2Iwv
 address@hidden" references: ()>)):out>))) 45d5c90> guile: #f options: 
(#:local-build? #t)>:out> "/etc/ssh/authorized_keys.d") (chmod 
"/etc/ssh/authorized_keys.d" 365) (let ((lastlog "/var/log/lastlog")) (when 
#<gexp-input #t:out> (unless (file-exists? lastlog) (touch lastlog)))) (system* 
(string-append #<gexp-input #<package address@hidden gnu/packages/ssh.scm:149 
18d5240>:out> "/bin/ssh-keygen") "-A")) 45d5ba0> splice?: #f> #<<scheme-file> 
name: "activate-service" gexp: #<gexp (activate-special-files (quote 
#<gexp-input (("/bin/sh" #<<file-append> base: #<package address@hidden 
gnu/packages/bash.scm:119 2227300> suffix: ("/bin/sh")>) ("/bin/bash" 
#<<file-append> base: #<package address@hidden gnu/packages/bash.scm:119 
2227300> suffix: ("/bin/bash")>) ("/usr/bin/perl" #<<file-append> base: 
#<package address@hidden gnu/packages/perl.scm:63 226fcc0> suffix: 
("/bin/perl")>) ("/usr/bin/env" #<<file-append> base: #<package address@hidden 
gnu/packages/base.scm:327 224fd80> suffix: ("/bin/env")>)):out>)) 45d5b40> 
splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp (begin 
(use-modules (guix build utils)) (define %user (getpw "ntpd")) (let ((directory 
"/var/run/ntpd")) (mkdir-p directory) (chown directory (passwd:uid %user) 
(passwd:gid %user)))) 45d5b10> splice?: #f> #<<scheme-file> name: 
"activate-service" gexp: #<gexp (begin (use-modules (guix build utils)) 
(mkdir-p #<gexp-input "/var/cache/cuirass":out>) (mkdir-p #<gexp-input 
"/var/run/cuirass":out>) (let ((uid (passwd:uid (getpw #<gexp-input 
"cuirass":out>))) (gid (group:gid (getgr #<gexp-input "cuirass":out>)))) (chown 
#<gexp-input "/var/cache/cuirass":out> uid gid) (chown #<gexp-input 
"/var/run/cuirass":out> uid gid))) 45d59f0> splice?: #f> #<<scheme-file> name: 
"activate-service" gexp: #t splice?: #f>):out>))) 45d5360> splice?: #f>
--8<---------------cut here---------------end--------------->8---