From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?Q?Cl=C3=A9ment?= Lassieur Subject: bug#31926: reconfigure is broken Date: Thu, 21 Jun 2018 14:37:19 +0200 Message-ID: <87tvpw2u4g.fsf@lassieur.org> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:53788) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fVyql-0003bL-TR for bug-guix@gnu.org; Thu, 21 Jun 2018 08:38:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fVyqg-00068S-Tz for bug-guix@gnu.org; Thu, 21 Jun 2018 08:38:07 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:50454) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fVyqg-00068O-QW for bug-guix@gnu.org; Thu, 21 Jun 2018 08:38:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fVyqg-00012c-Ko for bug-guix@gnu.org; Thu, 21 Jun 2018 08:38:02 -0400 Sender: "Debbugs-submit" Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:53654) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fVyq7-0003D7-P4 for bug-guix@gnu.org; Thu, 21 Jun 2018 08:37:29 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fVyq2-0005yF-RD for bug-guix@gnu.org; Thu, 21 Jun 2018 08:37:27 -0400 Received: from mail.lassieur.org ([83.152.10.219]:40976) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1fVyq2-0005wT-Ew for bug-guix@gnu.org; Thu, 21 Jun 2018 08:37:22 -0400 Received: from newt (smtp.parrot.biz [62.23.167.188]) by mail.lassieur.org (OpenSMTPD) with ESMTPSA id 7a09f198 (TLSv1.2:ECDHE-RSA-CHACHA20-POLY1305:256:NO) for ; Thu, 21 Jun 2018 12:37:19 +0000 (UTC) List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: "bug-Guix" To: 31926@debbugs.gnu.org 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 p= ull' 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 #) In ice-9/boot-9.scm: 705:2 10 (call-with-prompt _ _ #) In ice-9/eval.scm: 619:8 9 (_ #(#(#))) In guix/ui.scm: 1557:12 8 (run-guix-command _ . _) In ice-9/boot-9.scm: 829:9 7 (catch _ _ # =E2=80=A6) 829:9 6 (catch _ _ # =E2=80=A6) 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 (_ #) ERROR: Wrong type to apply: #< name: "activate" gexp: # name: "activate-service" gexp: # name: "f= irmware" gexp: # (quote # #):out>) #:log-port #:out> #:symlink #:out> #:resolve-collision #)) 4563540> guile: #f options: (#:local-build? #t)>:out> "/lib/firmwa= re")) 45634b0> splice?: #f> #< name: "activate-service" gexp: = # name: "modpr= obe" gexp: # (cons # (cdr (command-line))))) 1304a20> guile: #f path: ("/home/cle= ment/.packages" "/home/clement/.guix" "/home/clement/.guix" "/home/clement/= .guix-profile/share/guile/site/2.2" "/run/current-system/profile/share/guil= e/site/2.2" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/= guile/2.2" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/g= uile/site/2.2" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/sha= re/guile/site" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/sha= re/guile")>:out>) (activate-ptrace-attach)) 1304990> splice?: #f> #< name: "activate-service" gexp: # splice?: #f> #< name: "activate-service" gexp: # name: "etc" gexp: # guile: #f options: (#:l= ocal-build? #t)>:out>) 4574750> splice?: #f> #< name: "activat= e-service" gexp: # splice?: #f> #< name: "activ= ate-service" gexp: # base: # suffix: ("/bin/sh")>)):out>)) 45c0240> splice?: #f> #< name: "activate-service" gexp: # splice?: #f> #< name: "activate-service" gexp: #)) (catch (quote system-error) (lambda () (de= lete-file-recursively "/etc/authorized_keys.d")) (lambda args (unless (=3D = ENOENT (system-error-errno args)) (apply throw args)))) (copy-recursively #= name: "openssh-authorized-keys" gexp: #) (for-each (match-lambda ((user keys ...) (let ((file (= string-append # "/" user))) (call-with-output-file file (l= ambda (port) (for-each (lambda (key) (call-with-input-file key (cut dump-po= rt <> port))) keys)))))) (quote # nam= e: "clement" content: "ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQC4yLOWrukPll9Q= bgSEeN8+E6cyr/TaPb7U1vcq0rU5zoOs2p38tqEUac5U/dyHgDW03iV+LLAq7CZX0IrJlQ8QZ4z= PORpMQE3KcJOopKHtFUK7gCyA90a/8bZNm0riumGmbypimTbOTZkFqczMYlPaVTiVfwREbGgVNR= gkf5B50M4VEgDXGDpmG0puex+cF+/W4S+3YJh07mGUOwhx2qSefJ2rNvMTQrP01kZpYquaB9nIS= 1k4zN1ftJH3Y/OIAQIbV1VaonVCv9Oxriy0PStxvCWkf2HhXhpoV/R2qCIstkb9YCZ4k5a2eANE= sdw+iQware2N6GQjVX3a4bIRBHCf clement@rodion\nssh-rsa AAAAB3NzaC1yc2EAAAADAQ= ABAAABAQCXBYINeXwJR3g4s0dr/AjqylUE2lSOdYt499ZxNcQmZlGtpnvB9CRojL2w/XOH+pvVp= g0F2lG2HphPfeJRSjIrfXj34BDl6Ql4X4TD+n41EvUd1QfY/MZtkHiYp/BhyPHOixT4VZo4lM/N= agSUU/JFHA9D5sEXeLrbQwB0972Fj0x+183mkdaiFTlkMrrMJ9/zj+hnSTGLmSpoxhS6ZR+DBaR= WrcG2DPk9ISAn7BV54UQLFA9Gh8ksuUQFQGMc+AaC+NKs7OdT55WP2E4JHewe0cQtsa6jVCnMsN= L1kB1w7bpn07LB5t/ydeClGlRRZXWgV4qnOYF2/m+gCust2Iwv clement@newt\n" referenc= es: ()>)):out>))) 45d5c90> guile: #f options: (#:local-build? #t)>:out> "/e= tc/ssh/authorized_keys.d") (chmod "/etc/ssh/authorized_keys.d" 365) (let ((= lastlog "/var/log/lastlog")) (when # (unless (file-exist= s? lastlog) (touch lastlog)))) (system* (string-append #:out> "/bin/ssh-keygen") = "-A")) 45d5ba0> splice?: #f> #< name: "activate-service" gexp:= # base: # suffix:= ("/bin/sh")>) ("/bin/bash" #< base: # suffix: ("/bin/bash")>) ("/usr/bin/perl" #<= base: #= suffix: ("/bin/perl")>) ("/usr/bin/env" #< base: # suffix: ("/bin/env")>)):out= >)) 45d5b40> splice?: #f> #< 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 (pa= sswd:uid %user) (passwd:gid %user)))) 45d5b10> splice?: #f> #<= name: "activate-service" gexp: #) (mkdir-p #) (let ((uid (passwd:uid (getpw #))) (gid (group:gid (getgr #)))) (chown #<= gexp-input "/var/cache/cuirass":out> uid gid) (chown # uid gid))) 45d59f0> splice?: #f> #< name: "acti= vate-service" gexp: #t splice?: #f>):out>))) 45d5360> splice?: #f> --8<---------------cut here---------------end--------------->8---