bug#31926: reconfigure is broken

["Gábor Boskovits" <boskovits@gmail.com>]

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

Clément Lassieur <clement@lassieur.org> ezt írta (időpont: 2018. jún. 21.,
Cs, 14:39):

> 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 ath9k-htc-firmware@1.4.0
> gnu/packages/firmware.scm:43 1e45a80> #<package openfwwf-firmware@5.2
> 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 bash@4.4.19
> 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
> clement@rodion\nssh-rsa
> AAAAB3NzaC1yc2EAAAADAQABAAABAQCXBYINeXwJR3g4s0dr/AjqylUE2lSOdYt499ZxNcQmZlGtpnvB9CRojL2w/XOH+pvVpg0F2lG2HphPfeJRSjIrfXj34BDl6Ql4X4TD+n41EvUd1QfY/MZtkHiYp/BhyPHOixT4VZo4lM/NagSUU/JFHA9D5sEXeLrbQwB0972Fj0x+183mkdaiFTlkMrrMJ9/zj+hnSTGLmSpoxhS6ZR+DBaRWrcG2DPk9ISAn7BV54UQLFA9Gh8ksuUQFQGMc+AaC+NKs7OdT55WP2E4JHewe0cQtsa6jVCnMsNL1kB1w7bpn07LB5t/ydeClGlRRZXWgV4qnOYF2/m+gCust2Iwv
> clement@newt\n" 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 openssh@7.7p1
> 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 bash@4.4.19 gnu/packages/bash.scm:119 2227300> suffix:
> ("/bin/sh")>) ("/bin/bash" #<<file-append> base: #<package bash@4.4.19
> gnu/packages/bash.scm:119 2227300> suffix: ("/bin/bash")>) ("/usr/bin/perl"
> #<<file-append> base: #<package perl@5.26.1 gnu/packages/perl.scm:63
> 226fcc0> suffix: ("/bin/perl")>) ("/usr/bin/env" #<<file-append> base:
> #<package coreutils@8.29 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---
>
> Did you try to run guix pull again? Does it give you any errors?
>

[-- Attachment #2: Type: text/html, Size: 9729 bytes --]