From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?Q?G=C3=A1bor?= Boskovits Subject: bug#31926: reconfigure is broken Date: Thu, 21 Jun 2018 14:58:38 +0200 Message-ID: References: <87tvpw2u4g.fsf@lassieur.org> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="00000000000006416f056f267a3e" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:59301) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fVzB4-00030b-B1 for bug-guix@gnu.org; Thu, 21 Jun 2018 08:59:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fVzB0-0007qV-8V for bug-guix@gnu.org; Thu, 21 Jun 2018 08:59:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:50460) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fVzB0-0007qR-40 for bug-guix@gnu.org; Thu, 21 Jun 2018 08:59:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fVzAz-0001Vk-Sa for bug-guix@gnu.org; Thu, 21 Jun 2018 08:59:01 -0400 Sender: "Debbugs-submit" Resent-Message-ID: In-Reply-To: <87tvpw2u4g.fsf@lassieur.org> 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: =?UTF-8?Q?Cl=C3=A9ment?= Lassieur Cc: 31926@debbugs.gnu.org --00000000000006416f056f267a3e Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Cl=C3=A9ment Lassieur ezt =C3=ADrta (id=C5=91pont: 2= 018. j=C3=BAn. 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 #) > 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: # (begin (use-modules (gnu build activation) (guix build utils)) (close-por= t > (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 # name: > "activate-service" gexp: # # name: "firmware" gexp: # (use-modules (guix build union) (srfi srfi-1)) (union-build # out> (quote # gnu/packages/firmware.scm:43 1e45a80> # gnu/packages/firmware.scm:156 1e45900>):out>) #:log-port # #:out> #:symlink # symlink 4563660>:out> #:resolve-collision # warn-about-collision:out>)) 4563540> guile: #f options: (#:local-build? > #t)>:out> "/lib/firmware")) 45634b0> splice?: #f> #< name: > "activate-service" gexp: # #< name: "modprobe" gexp: # "LINUX_MODULE_DIRECTORY" "/run/booted-system/kernel/lib/modules") (apply > execl # (cons > # (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")>:o= ut>) > (activate-ptrace-attach)) 1304990> splice?: #f> #< name: > "activate-service" gexp: # splice?: #f> #< > name: "activate-service" gexp: # #< name: "etc" gexp: # guile: #f options: > (#:local-build? #t)>:out>) 4574750> splice?: #f> #< name: > "activate-service" gexp: # splice?: #f> #< > name: "activate-service" gexp: # # base: # gnu/packages/bash.scm:119 2227300> suffix: ("/bin/sh")>)):out>)) 45c0240> > splice?: #f> #< name: "activate-service" gexp: # 45d5db0> splice?: #f> #< name: "activate-service" 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 #)) > (catch (quote system-error) (lambda () (delete-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: # (begin (use-modules (ice-9 match) (srfi srfi-26) (guix build utils)) (mkd= ir > #) (for-each (match-lambda ((user keys ...) (let ((file > (string-append # "/" user))) (call-with-output-file file > (lambda (port) (for-each (lambda (key) (call-with-input-file key (cut > dump-port <> port))) keys)))))) (quote # #< name: "clement" content: "ssh-rsa > AAAAB3NzaC1yc2EAAAADAQABAAABAQC4yLOWrukPll9QbgSEeN8+E6cyr/TaPb7U1vcq0rU5z= oOs2p38tqEUac5U/dyHgDW03iV+LLAq7CZX0IrJlQ8QZ4zPORpMQE3KcJOopKHtFUK7gCyA90a/= 8bZNm0riumGmbypimTbOTZkFqczMYlPaVTiVfwREbGgVNRgkf5B50M4VEgDXGDpmG0puex+cF+/= W4S+3YJh07mGUOwhx2qSefJ2rNvMTQrP01kZpYquaB9nIS1k4zN1ftJH3Y/OIAQIbV1VaonVCv9= Oxriy0PStxvCWkf2HhXhpoV/R2qCIstkb9YCZ4k5a2eANEsdw+iQware2N6GQjVX3a4bIRBHCf > clement@rodion\nssh-rsa > AAAAB3NzaC1yc2EAAAADAQABAAABAQCXBYINeXwJR3g4s0dr/AjqylUE2lSOdYt499ZxNcQmZ= lGtpnvB9CRojL2w/XOH+pvVpg0F2lG2HphPfeJRSjIrfXj34BDl6Ql4X4TD+n41EvUd1QfY/MZt= kHiYp/BhyPHOixT4VZo4lM/NagSUU/JFHA9D5sEXeLrbQwB0972Fj0x+183mkdaiFTlkMrrMJ9/= zj+hnSTGLmSpoxhS6ZR+DBaRWrcG2DPk9ISAn7BV54UQLFA9Gh8ksuUQFQGMc+AaC+NKs7OdT55= WP2E4JHewe0cQtsa6jVCnMsNL1kB1w7bpn07LB5t/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")) (wh= en > # (unless (file-exists? lastlog) (touch lastlog)))) > (system* (string-append # gnu/packages/ssh.scm:149 18d5240>:out> "/bin/ssh-keygen") "-A")) 45d5ba0> > splice?: #f> #< name: "activate-service" gexp: # (activate-special-files (quote # > base: # suffix: > ("/bin/sh")>) ("/bin/bash" #< base: # gnu/packages/bash.scm:119 2227300> suffix: ("/bin/bash")>) ("/usr/bin/per= l" > #< base: # 226fcc0> suffix: ("/bin/perl")>) ("/usr/bin/env" #< base: > # suffix: > ("/bin/env")>)):out>)) 45d5b40> splice?: #f> #< name: > "activate-service" gexp: # (define %user (getpw "ntpd")) (let ((directory "/var/run/ntpd")) (mkdir-p > directory) (chown directory (passwd:uid %user) (passwd:gid %user)))) > 45d5b10> splice?: #f> #< name: "activate-service" gexp: # (begin (use-modules (guix build utils)) (mkdir-p # "/var/cache/cuirass":out>) (mkdir-p #) > (let ((uid (passwd:uid (getpw #))) (gid > (group:gid (getgr #)))) (chown # "/var/cache/cuirass":out> uid gid) (chown # "/var/run/cuirass":out> uid gid))) 45d59f0> splice?: #f> #< > 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? > --00000000000006416f056f267a3e Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Cl=C3=A9ment L= assieur <clement@lassieur.org> ezt =C3=ADrta (id=C5=91pont: 2018. j=C3=BAn. 21., Cs, 14:39):
I'm on commit 1a5b0dfe06ff3b97b6394232= f143b95c616890b3, 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 u= pdates.

guix system: warning: /home/clement/.config/guix/current not found: 'gu= ix pull' was never run
guix system: warning: Consider running 'guix pull' before 'reco= nfigure'.
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:
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 11 (apply-smob/1 #<catch-closure c941= 20>)
In ice-9/boot-9.scm:
=C2=A0 =C2=A0 705:2 10 (call-with-prompt _ _ #<procedure default-prompt-= handle=E2=80=A6>)
In ice-9/eval.scm:
=C2=A0 =C2=A0 619:8=C2=A0 9 (_ #(#(#<directory (guile-user) d4c140>))= )
In guix/ui.scm:
=C2=A0 1557:12=C2=A0 8 (run-guix-command _ . _)
In ice-9/boot-9.scm:
=C2=A0 =C2=A0 829:9=C2=A0 7 (catch _ _ #<procedure 7f3c7c96e980 at guix/= ui.scm:593=E2=80=A6> =E2=80=A6)
=C2=A0 =C2=A0 829:9=C2=A0 6 (catch _ _ #<procedure 7f3c7c96e998 at guix/= ui.scm:711=E2=80=A6> =E2=80=A6)
In guix/scripts/system.scm:
=C2=A0 =C2=A01240:8=C2=A0 5 (_)
=C2=A0 =C2=A01110:6=C2=A0 4 (process-action _ _ _)
In guix/store.scm:
=C2=A0 1414:24=C2=A0 3 (run-with-store _ _ #:guile-for-build _ #:system _ #= _)
In guix/scripts/system.scm:
=C2=A0 =C2=A0873:13=C2=A0 2 (_ _)
=C2=A0 =C2=A0 355:2=C2=A0 1 (_ _)
In unknown file:
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A00 (_ #<build-daemon 256.97 3864= f00>)

ERROR: Wrong type to apply: #<<scheme-file> name: "activate&q= uot; 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&= quot; "a0")) (activate-current-system) (for-each primitive-load (= quote #<gexp-input (#<<scheme-file> name: "activate-servic= e" 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-outp= ut out> (quote #<gexp-input (#<package ath9k-htc-firmware@1.4.0 gn= u/packages/firmware.scm:43 1e45a80> #<package openfwwf-firmware@5.2 g= nu/packages/firmware.scm:156 1e45900>):out>) #:log-port #<gexp-inp= ut #<gexp (current-error-port) 4563630>:out> #:symlink #<gexp-i= nput #<gexp symlink 4563660>:out> #:resolve-collision #<gexp-in= put warn-about-collision:out>)) 4563540> guile: #f options: (#:local-= build? #t)>:out> "/lib/firmware")) 45634b0> splice?: #f&= gt; #<<scheme-file> name: "activate-service" gexp: #<= gexp (begin (activate-modprobe #<gexp-input #<<program-file> na= me: "modprobe" gexp: #<gexp (begin (setenv "LINUX_MODULE_= DIRECTORY" "/run/booted-system/kernel/lib/modules") (apply e= xecl #<gexp-input "/run/current-system/profile/bin/modprobe":o= ut> (cons #<gexp-input "/run/current-system/profile/bin/modprobe= ":out> (cdr (command-line))))) 1304a20> guile: #f path: ("/= home/clement/.packages" "/home/clement/.guix" "/home/cl= ement/.guix" "/home/clement/.guix-profile/share/guile/site/2.2&qu= ot; "/run/current-system/profile/share/guile/site/2.2" "/gnu= /store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/2.2" &= quot;/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/si= te/2.2" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/= share/guile/site" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-gu= ile-2.2.3/share/guile")>:out>) (activate-ptrace-attach)) 1304990= > splice?: #f> #<<scheme-file> name: "activate-service&= quot; gexp: #<gexp=C2=A0 4563450> splice?: #f> #<<scheme-fil= e> name: "activate-service" gexp: #<gexp (activate-etc #<= ;gexp-input #<<computed-file> name: "etc" gexp: #<gex= p=C2=A0 45747e0> guile: #f options: (#:local-build? #t)>:out>) 457= 4750> splice?: #f> #<<scheme-file> name: "activate-serv= ice" gexp: #<gexp=C2=A0 45c02d0> splice?: #f> #<<scheme= -file> name: "activate-service" gexp: #<gexp (activate-spec= ial-files (quote #<gexp-input (("/bin/sh" #<<file-append= > base: #<package bash@4.4.19 gnu/packages/bash.scm:119 2227300> s= uffix: ("/bin/sh")>)):out>)) 45c0240> splice?: #f> #&= lt;<scheme-file> name: "activate-service" gexp: #<gexp= =C2=A0 45d5db0> splice?: #f> #<<scheme-file> name: "act= ivate-service" gexp: #<gexp (begin (use-modules (guix build utils))= (define (touch file-name) (call-with-output-file file-name (const #t))) (m= kdir-p "/etc/ssh") (chmod "/etc/ssh" 493) (mkdir-p (dir= name #<gexp-input "/var/run/sshd.pid":out>)) (catch (quote = system-error) (lambda () (delete-file-recursively "/etc/authorized_key= s.d")) (lambda args (unless (=3D ENOENT (system-error-errno args)) (ap= ply 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-o= utput out>) (for-each (match-lambda ((user keys ...) (let ((file (string= -append #<gexp-output out> "/" user))) (call-with-output-fi= le file (lambda (port) (for-each (lambda (key) (call-with-input-file key (c= ut dump-port <> port))) keys)))))) (quote #<gexp-input (("cle= ment" #<<plain-file> name: "clement" content: "= ;ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQC4yLOWrukPll9QbgSEeN8+E6cyr/TaPb7U1v= cq0rU5zoOs2p38tqEUac5U/dyHgDW03iV+LLAq7CZX0IrJlQ8QZ4zPORpMQE3KcJOopKHtFUK7g= CyA90a/8bZNm0riumGmbypimTbOTZkFqczMYlPaVTiVfwREbGgVNRgkf5B50M4VEgDXGDpmG0pu= ex+cF+/W4S+3YJh07mGUOwhx2qSefJ2rNvMTQrP01kZpYquaB9nIS1k4zN1ftJH3Y/OIAQIbV1V= aonVCv9Oxriy0PStxvCWkf2HhXhpoV/R2qCIstkb9YCZ4k5a2eANEsdw+iQware2N6GQjVX3a4b= IRBHCf clement@rodion\nssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQCXBYINeXwJR3g4= s0dr/AjqylUE2lSOdYt499ZxNcQmZlGtpnvB9CRojL2w/XOH+pvVpg0F2lG2HphPfeJRSjIrfXj= 34BDl6Ql4X4TD+n41EvUd1QfY/MZtkHiYp/BhyPHOixT4VZo4lM/NagSUU/JFHA9D5sEXeLrbQw= B0972Fj0x+183mkdaiFTlkMrrMJ9/zj+hnSTGLmSpoxhS6ZR+DBaRWrcG2DPk9ISAn7BV54UQLF= A9Gh8ksuUQFQGMc+AaC+NKs7OdT55WP2E4JHewe0cQtsa6jVCnMsNL1kB1w7bpn07LB5t/ydeCl= GlRRZXWgV4qnOYF2/m+gCust2Iwv clement@newt\n" references: ()>)):out&= gt;))) 45d5c90> guile: #f options: (#:local-build? #t)>:out> "= ;/etc/ssh/authorized_keys.d") (chmod "/etc/ssh/authorized_keys.d&= quot; 365) (let ((lastlog "/var/log/lastlog")) (when #<gexp-in= put #t:out> (unless (file-exists? lastlog) (touch lastlog)))) (system* (= string-append #<gexp-input #<package openssh@7.7p1 gnu/packages/ssh.s= cm:149 18d5240>:out> "/bin/ssh-keygen") "-A")) 45= d5ba0> splice?: #f> #<<scheme-file> name: "activate-ser= vice" gexp: #<gexp (activate-special-files (quote #<gexp-input (= ("/bin/sh" #<<file-append> base: #<package bash@4.4.1= 9 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")&g= t;) ("/usr/bin/perl" #<<file-append> base: #<package = perl@5.26.1 gnu/packages/perl.scm:63 226fcc0> suffix: ("/bin/perl&q= uot;)>) ("/usr/bin/env" #<<file-append> base: #<pa= ckage 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-mod= ules (guix build utils)) (define %user (getpw "ntpd")) (let ((dir= ectory "/var/run/ntpd")) (mkdir-p directory) (chown directory (pa= sswd: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/c= uirass":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&= gt;)))) (chown #<gexp-input "/var/cache/cuirass":out> uid g= id) (chown #<gexp-input "/var/run/cuirass":out> uid gid))) = 45d59f0> splice?: #f> #<<scheme-file> name: "activate-s= ervice" gexp: #t splice?: #f>):out>))) 45d5360> splice?: #f&g= t;
--8<---------------cut here---------------end--------------->8---

Did you try to run guix pull again? Does it give you any errors?
=C2=A0
--00000000000006416f056f267a3e--