bug#53983: lsh fails to build

[Brice Waegeneire]

Hello Roman,

Roman Riabenko  writes:

> I was able to reproduce it on a fresh install of Guix 1.3.0. I just
> downloaded the image, installed with graphical installer, and ran "guix
> pull" and "guix system reconfigure /etc/config.scm" on the freshly
> installed system. Then, "guix install lsh" checks for substitues and
> falls back to building, which results in the attached error message. I
> also tried installing lsh in the QCOW2 image, which got it installed
> from substitutes without an issue. It seems that something in build-
> dependancies needs to be updated.

Thanks for the report.  Tobias has fixed that a few hours ago in
1cdd6b09c8bc45c1ae5a16f16d5bcf33ab0ceb5e¹ which the CI build successfully².  I
was also able to build it locally.

¹ 
https://git.savannah.gnu.org/cgit/guix.git/commit/?id=1cdd6b09c8bc45c1ae5a16f16d5bcf33ab0ceb5e
² http://ci.guix.gnu.org/build/485353/details

Cheers,
- Brice

bug#53855: bug#53880: [PATCH 0/2] Fix build of protonvpn-cli

[Brice Waegeneire]

Hello Josselin,

Josselin Poiret  writes:

> Josselin Poiret (2):
>   gnu: protonvpn-cli: Do not try to wrap the wrapper.
>   gnu: protonvpn-cli: Remove sanity-check phase.
>
>  gnu/packages/vpn.scm | 8 ++--
>  1 file changed, 6 insertions(+), 2 deletions(-)

Thank you for the patch, it fixes . I've build the
package and ran the binary succesfully.  It's pushed as
9c8f68f4796f23c11173fa3f90c69bc85b224ac6 with an added copyright header.

Cheers,
- Brice

bug#53921: [PATCH] services: libvirt: Enable listening mode based on configuration.

[Brice Waegeneire]

Fixes <https://bugs.gnu.org/53921>.

* gnu/services/virtualization.scm (libvirt-shepherd-service): Use
  'match-record' instead of accessors.
  Conditionally add "--listen" flag to the start command.
---
Hello Katherine,

Katherine Cox-Buday  writes:

> The shepherd libvirt service contains ways to configure "listening mode"
> (i.e. listening over TCP) capabilities, but contains no way to actually turn
> this feature on, despite referencing[1] an unimplemented `listen` option:

Good catch!  This patch fixes the reported issue, I've tested it with success.

Cheers,
- Brice

 gnu/services/virtualization.scm | 13 -
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
index 66ae1a1565..ba9fe0505c 100644
--- a/gnu/services/virtualization.scm
+++ b/gnu/services/virtualization.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2018, 2020, 2021 Ludovic Courtès 
 ;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen 
 ;;; Copyright © 2021 Timotej Lazar 
+;;; Copyright © 2022 Brice Waegeneire 
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -467,16 +468,18 @@ (define (%libvirt-activation config)
 (use-modules (guix build utils))
 (mkdir-p #$sock-dir
 
-
 (define (libvirt-shepherd-service config)
-  (let* ((config-file (libvirt-conf-file config))
- (libvirt (libvirt-configuration-libvirt config)))
+  (match-record config 
+(libvirt listen-tcp? listen-tls?)
 (list (shepherd-service
(documentation "Run the libvirt daemon.")
(provision '(libvirtd))
(start #~(make-forkexec-constructor
- (list (string-append #$libvirt "/sbin/libvirtd")
-   "-f" #$config-file)
+ (list #$(file-append libvirt "/sbin/libvirtd")
+   (if (or #$listen-tcp? #$listen-tls?)
+   "--listen"
+   "")
+   "-f" #$(libvirt-conf-file config))
  ;; For finding qemu and ip binaries.
  #:environment-variables
  (list (string-append

base-commit: 068d99978a0c9c6fb66f95455060c8d08ba55ac5
-- 
2.34.0

bug#53695: trash-cli crashes

[Brice Waegeneire]

Hello Simon,

Simon Streit  writes:

> With trash-cli's last update, it doesn't work any more and exits with
> the following error:
>
> Traceback (most recent call last):
>   File "/home/ss2/.guix-profile/bin/trash-list", line 4, in 
> from trashcli.list import main as main
> ModuleNotFoundError: No module named 'trashcli'

I'm the one who updated trash-cli¹; sorry to have broken it for you.
Unfortunalty, I can't manage to reproduce it on my side:

--8<---cut here---start->8---
$ /gnu/store/kbsw86qqip1p9yzrnm36d71xhk278m1l-profile/bin/trash-list
2021-12-11 09:12:37 /home/bricewge/project/guix/bricewge/channel
2021-12-21 08:23:06 /home/bricewge/project/guix/bricewge/symlink
[...]
--8<---cut here---end--->8---

Alos I'm using trash-cli daily without any issue since updating it.  The commit
updating the package also activate tests which pass fine on the CI².

Is it still broken on your side?  Are you on a foreign distro?  Can you share
other relevant information to find in which condition the package break ?

¹ https://issues.guix.gnu.org/50235
² http://ci.guix.gnu.org/build/405413/log/raw

Cheers,
- Brice

bug#41238: guix deploy close ssh session after each store items sent

[Brice Waegeneire]

Hello Guix,

Brice Waegeneire  writes:

> “guix deploy” bugs; they keep coming! “guix deploy” doesn't make use of SSH
> channels[0], instead it close the SSH session each time after sending store
> items.

[...]

Ludo‘ fixed the issue with the commit 7f20e59a13a6acc3331e04185b8f1ed2538dcd0a.

For posterity, here is the workaround I was using a few month ago and is now
unecessary. The session filed needed to be manually set with a call to
"openssh-ssh-session" from (guix ssh):

--8<---cut here---start->8---
(machine-ssh-configuration
  (host-name "foo")
  (system "x86_64-linux")
  (session (open-ssh-session "foo" #:user "root"))
  (host-key "..."))
--8<---cut here---end--->8---

Currently the following suffice:

--8<---cut here---start->8---
(machine-ssh-configuration
  (host-name "foo")
  (system "x86_64-linux")
  (user "root") 
  (host-key "..."))
--8<---cut here---end--->8---

Cheers,
- Brice

bug#41235: guix deploy can't deploy with a user different than root

[Brice Waegeneire]

Hello Guix,

Brice Waegeneire  writes:

> When trying to reproduce another “guix deploy” bug for a future bug 
> report
> I stumbled upon this one: it's not possible to deploy as a user
> (machine-ssh-configuration-user) different than “root“, even with a
> properly configured sudoers file[0]. Deploying with root works when ssh 
> is
> configured with “PermitRootLogin yes”.

[...]

This isn't the case anymore.  I can now use "guix deploy" with a user having
passwordless sudo right, as documented in the manual.

Cheers,
- Brice

bug#53314: deploy: Add '--expression' support.

[Brice Waegeneire]

Hello Guix,

It would be nice if "guix deploy" would support "-e" and "--expression" flag to
mirror "guix system" behavior.

Cheers,
- Brice

bug#52791: nextcloud-client not building on master

[Brice Waegeneire]

Hello Nicholas,

Nicholas von Klitzing  writes:

> Updating the package to 3.2.0 (the version where the PR was merged) solves
> the issue. This patch is attached.
>
> I'll see if I get to updating it to 3.4.1

> * gnu/packages/sync.scm (nextcloud-client): Update to 3.2.0.
> ---
>  gnu/packages/sync.scm | 4 ++--
>  1 file changed, 2 insertions(+), 2 deletions(-)

Thank you for fixing that failing build, pushed as
27eb4ac9f506f9f06061d79548de5da53ac03bfa.

If you want to update it to it's latestet version, don't forget to run "guix
lint" on it and add your copyright to the file if it's a non trivial change.

Cheers,
- Brice

bug#47606: [PATCH] gnu: postgresql: Add manuals.

[Brice Waegeneire]

Fixes <https://issues.guix.gnu.org/47606>.

* gnu/packages/databases.scm (postgresql)[arguments]: Add configure flag
  '--mandir'.  Add phase 'install-man'.
---
 gnu/packages/databases.scm | 20 +---
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 7cff0f99c5..76e99283ed 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -54,6 +54,7 @@
 ;;; Copyright © 2021 Alexandre Hannud Abdo 
 ;;; Copyright © 2021 Simon Tournier 
 ;;; Copyright © 2021 jgart 
+;;; Copyright © 2021 Brice Waegeneire 
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1118,12 +1119,14 @@ (define-public postgresql-13
   (patches (search-patches 
"postgresql-disable-resolve_symlinks.patch"
 (build-system gnu-build-system)
 (arguments
- `(#:configure-flags '("--with-uuid=e2fs" "--with-openssl"
-   ;; PostgreSQL installs its own Makefile (should 
it?).
-   ;; Prevent it from retaining needless references to
-   ;; the build tools in order to save size.
-   "MKDIR_P=mkdir -p" "INSTALL_BIN=install -c"
-   "LD=ld" "TAR=tar")
+ `(#:configure-flags
+   (list "--with-uuid=e2fs" "--with-openssl"
+ (string-append "--mandir=" (assoc-ref %outputs "out") 
"/share/man")
+ ;; PostgreSQL installs its own Makefile (should it?).
+ ;; Prevent it from retaining needless references to
+ ;; the build tools in order to save size.
+ "MKDIR_P=mkdir -p" "INSTALL_BIN=install -c"
+ "LD=ld" "TAR=tar")
#:phases
(modify-phases %standard-phases
  (add-before 'configure 'patch-/bin/sh
@@ -1138,7 +1141,10 @@ (define-public postgresql-13
  (invoke "make" "-C" "contrib")))
  (add-after 'install 'install-contrib
(lambda _
- (invoke "make" "-C" "contrib" "install"))
+ (invoke "make" "-C" "contrib" "install")))
+ (add-after 'install 'install-man
+   (lambda _
+ (invoke "make" "-C" "doc/src/sgml" "install-man"))
 (inputs
  `(("readline" ,readline)
("libuuid" ,util-linux "lib")

base-commit: 604880ae22e1a7662acb1d3f282242470de0cd03
prerequisite-patch-id: ecd20aaded80566551ed0bd654517209ad239de5
prerequisite-patch-id: 96a62566ab07f5d80f2edd43cd0f89c7191e7ee6
prerequisite-patch-id: 5f8c05b16a80862bfc759169d05d1b03d48284a6
prerequisite-patch-id: 4a455af71d83d984fe88b3cdbc1f8f477b27f2a9
-- 
2.34.0

bug#50788: Swapfile on Btrfs does not start at boot

[Brice Waegeneire]

Hello John and Zacchaeus,

A month ago I open a thread in guix-devel titled “Using a swapfile on btrfs for
hibernation”¹ describing in depth my setup about your specific issue but it had
no response so far.  It should be detailled enought for you to reproduce a
similar setup and if not I would like your feedbakc on it.

John Kehayias  writes:

> This has been discussed a few times on #guix, with some having success, but 
> mostly it seems not. The issue is having a swapfile (maybe also for 
> partition?) on Btrfs and swap not being activated on boot. In my case, I can 
> manually start with `sudo herd start swap-/swap/swapfile` and it will work 
> fine. There might be an issue with when different filesystems are loaded with 
> Btrfs subvolumes? I have my swap as a file on a subvolume.
>


>>From syslog, just before and after the only "swap" related message:

[...]

> Checking the status of the service shows:

[...]

> This is the file-systems and swap part of my system configuration:

Following are the same output as yours but from a working setup.

--8<---cut here---start->8---
# dmesg
[...]
[6.393304] shepherd[1]: Service udev has been started.
[6.431318] Adding 32488200k swap on /swap/swapfile.  Priority:-2 extents:2 
across:32706248k FS
[6.433275] shepherd[1]: Service swap-/swap/swapfile has been started.
[6.434347] shepherd[1]: Service user-file-systems has been started.
[6.469352] shepherd[1]: Service file-system-/boot/efi has been started.
[6.535679] shepherd[1]: Service file-system-/home has been started.
[...]
--8<---cut here---end--->8---

--8<---cut here---start->8---
# herd status swap-/swap/swapfile
Status of swap-/swap/swapfile:
  It is started.
  Running value is #t.
  It is enabled.
  Provides (swap-/swap/swapfile).
  Requires (udev).
  Conflicts with ().
  Will not be respawned.
--8<---cut here---end--->8---

Here are the file-systems and swap-devices fields of my operating-system:
--8<---cut here---start->8---
(file-systems
  (append (list (file-system
 (mount-point "/boot/efi")
 (device (uuid "588A-2266" 'fat32))
 (type "vfat"))
(file-system
 (mount-point "/swap")
 (device (uuid "2ab8e658-5878-4acd-ba33-8a46707a3828" 'btrfs))
 (type "btrfs")
 (needed-for-boot? #t)
 (options "compress=zstd,subvol=swap")))
  (hash-map->list
   (lambda (mount-point subvolume)
 (file-system
   (mount-point mount-point)
   (device (uuid "2ab8e658-5878-4acd-ba33-8a46707a3828" 'btrfs))
   (type "btrfs")
   (options (string-append "compress=zstd" ",subvol=" subvolume
   (alist->hash-table '(("/" . "guix-system")
("/home" . "home")
;; ("/swap" . "swap")
("/mnt/btrfs-root"   . "/"
  %base-file-systems))

(swap-devices (list "/swap/swapfile"))
--8<---cut here---end--->8---

> Hope this is helpful in tracking down what is happening, I know I'm not alone 
> in this issue.

I think you are just missing “(needed-for-boot? #t)” on your swap subvolume,
even tho you shouldn't need to have it mounted from the initramfs (except if you
want to hibernate on your swapfile).  On the thread previsouly cited¹, I suggest
two new records “swap-file” and “swap-device” where it would make sense to add
an additional “dependecies” field, similar to the one in ”file-system” record,
which would list the “file-system” to be mounted before activating that swap
file (or device).

Hope it helps.

¹ https://yhetil.org/guix/87zgt9nrmg@waegenei.re/

Cheers,
- Brice

bug#48844: bug#50056: [PATCH] gnu: emacs-guix: Update to 0.5.2.5-c9aef52.

[Brice Waegeneire]

Hello André,

Thank you for the patch.  I changed the source to Gitlab since the Github
repositroy and the homepage point to that repo.

Pushed as 399e3ee7b793022b22937901ab4c477ece1ad226.

Cheers,
- Brice

bug#48082: [PATCH] environment: Add support for .

[Brice Waegeneire]

Fix <https://issues.guix.gnu.org/48082>.

* guix/scripts/environment.scm (input->manifest-entry): Add support for
  .
---
 guix/scripts/environment.scm | 6 ++
 1 file changed, 6 insertions(+)

Ricardo, thank you for the links, I managed to reproduce the issue.  And fixed
it with the help of Ludovic on IRC.

diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 6958bd6238..c464e7cfb3 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2014, 2015, 2018 David Thompson 
 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès 

 ;;; Copyright © 2018 Mike Gerwitz 
+;;; Copyright © 2021 Brice Waegeneire 
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -28,6 +29,7 @@
   #:use-module (guix packages)
   #:use-module (guix profiles)
   #:use-module (guix search-paths)
+  #:use-module (guix inferior)
   #:use-module (guix build utils)
   #:use-module (guix monads)
   #:use-module ((guix gexp) #:select (lower-object))
@@ -74,6 +76,10 @@ package."
  (package->manifest-entry package))
 ((_ (? package? package) output)
  (package->manifest-entry package output))
+((_ (? inferior-package? package))
+ (inferior-package->manifest-entry package))
+((_ (? inferior-package? package) output)
+ (inferior-package->manifest-entry package output))
 (_
  #f)))
 
-- 
2.32.0

bug#40272: linux-module-build-system don't support an inferior package as a kernel

[Brice Waegeneire]

Hello Ludo’,

Ludovic Courtès  writes:

> [...]
> In this case, the problem is that (@ (guix build-system linux-module)
> lower) assumes that ‘linux’ is a :
>
> (build-inputs `(,@(if source
>   `(("source" ,source))
>   '())
> ,@native-inputs
> ;; TODO: Remove "gmp", "mpfr", "mpc" since they are
> ;; only needed to compile the gcc plugins.  Maybe
> ;; remove "flex", "bison", "elfutils", "perl",
> ;; "openssl".  That leaves very little ("bc", "gcc",
> ;; "kmod").
> ,@(package-native-inputs linux)   ;<- HERE
>
> I suppose you could add a special-case for (inferior-package? linux).
> Not pretty, but it’d do the job.

As I said on IRC, I had already tried that without success.  I did the
following change:

--8<---cut here---start->8---
diff --git a/guix/build-system/linux-module.scm 
b/guix/build-system/linux-module.scm
index fc3d959ce7..c30cac90f9 100644
--- a/guix/build-system/linux-module.scm
+++ b/guix/build-system/linux-module.scm
@@ -21,6 +21,7 @@
   #:use-module (guix store)
   #:use-module (guix utils)
   #:use-module (guix derivations)
+  #:use-module (guix inferior)
   #:use-module (guix search-paths)
   #:use-module (guix build-system)
   #:use-module (guix build-system gnu)
@@ -129,7 +130,10 @@
 ;; remove "flex", "bison", "elfutils", "perl",
 ;; "openssl".  That leaves very little ("bc", "gcc",
 ;; "kmod").
-,@(package-native-inputs linux)
+;; ,@(package-native-inputs linux)
+,@(if (inferior-package? linux)
+  (inferior-package-native-inputs linux)
+  (package-native-inputs linux))
 ,@if target
   ;; Use the standard cross inputs of
   ;; 'gnu-build-system'.
--8<---cut here---end--->8---

Which produced this backtrace, which seems to indicate an issue in the
'package->bag' procedure:

--8<---cut here---start->8---
$ COLUMNS=999 ./pre-inst-env  guix build -f ./40272.scm
Backtrace:
In srfi/srfi-1.scm:
   673:15 19 (append-map # ("x86_64-linux"))
   586:17 18 (map1 ("x86_64-linux"))
In guix/scripts/build.scm:
   610:20 17 (_ _)
In guix/store.scm:
   1362:4 16 (map/accumulate-builds # _ _)
In srfi/srfi-1.scm:
   586:17 15 (map1 (#))
In guix/store.scm:
   1320:8 14 (call-with-build-handler # _)
In guix/scripts/build.scm:
   569:18 13 (_ _)
In guix/packages.scm:
  1177:16 12 (package-derivation _ # _ #:graft? _)
  1494:22 11 (thunk)
  1177:16 10 (package->bag _ _ _ #:graft? _)
  1279:21  9 (thunk)
In ice-9/eval.scm:
   293:34  8 (_ #(#(#(#(#(#(#(#) "ddcci-driver-linux-0.3.3" (#:system "x86_64-linux" #:source 
# url: 
"https://gitlab.com/ddcci-driver-linux/ddcci-driver-linux.git; commit: "v0.3.3" 
recursive?: #f> # () 7f8aef024060> 
#:inputs () #:native-inputs () #:outputs ("out") #:target #f #:tests? #f 
#:phases (modify-phases %standard-phases (replace (quote build) (lambda args 
(for-each (lambda (module) (with-directory-excursion module (apply (assoc-ref 
%standard-phases (quote build)) args))) (quote ("ddcci" "ddcci-backlight"))) 
#t)) (replace (quote install) (lambda args (for-each (lambda (module) 
(with-directory-excursion module (apply (assoc-ref %standard-phases (quote 
install)) args))) (quote ("ddcci" "ddcci-backlight"))) #t))) #:linux 
#) # url: …> …) …) …) …) …) …))
159:9  7 (_ #(#(#(#(#(#(#(#) "ddcci-driver-linux-0.3.3" (#:system "x86_64-linux" #:source 
# url: 
"https://gitlab.com/ddcci-driver-linux/ddcci-driver-linux.git; commit: "v0.3.3" 
recursive?: #f> # () 7f8aef024060> 
#:inputs () #:native-inputs () #:outputs ("out") #:target #f #:tests? #f 
#:phases (modify-phases %standard-phases (replace (quote build) (lambda args 
(for-each (lambda (module) (with-directory-excursion module (apply (assoc-ref 
%standard-phases (quote build)) args))) (quote ("ddcci" "ddcci-backlight"))) 
#t)) (replace (quote install) (lambda args (for-each (lambda (module) 
(with-directory-excursion module (apply (assoc-ref %standard-phases (quote 
install)) args))) (quote ("ddcci" "ddcci-backlight"))) #t))) #:linux 
#) # url: …> …) …) …) …) …) …))
159:9  6 (_ #(#(#(#(#(#(#(#) "ddcci-driver-linux-0.3.3" (#:system "x86_64-linux" #:source 
# url: 
"https://gitlab.com/ddcci-driver-linux/ddcci-driver-linux.git; commit: "v0.3.3" 
recursive?: #f> # () 7f8aef024060> 
#:inputs () #:native-inputs () #:outputs ("out") #:target #f #:tests? #f 
#:phases (modify-phases %standard-phases (replace (quote build) (lambda args 
(for-each (lambda (module) (with-directory-excursion module (apply (assoc-ref 
%standard-phases (quote build)) args))) (quote ("ddcci" "ddcci-backlight"))) 
#t)) (replace 

bug#40272: linux-module-build-system don't support an inferior package as a kernel

[Brice Waegeneire]

Brice Waegeneire  writes:

> Message Body
> Hello,
>
> The linux-module-build-system crash when using an inferior package as 
> the
> kernel. I have first reported the issue in the second part of[0] and
> latter, reading[1] made me realize that the root cause was in `(guix
> `build-system linux-module)' and not directly related to the
> `kernel-loadable-modules' field.
>
> I tried fixing it myself but (guix inferior) seems to be missing some
> important procedures so I can manage to do it by myself - I don't have 
> the
> skills to modify that part of the code base. A way to make a package by
> inheriting from a inferior-package would greatly help because
> `make-linux-module-builder' assume that it's argument is straight 
> forward
> package.

Hello Guix,

Gentle bump.

The core of this issue is that a package can't depend on a
 because build systems assume the inputs are
.  Having a procedure 'inferior-package->package' would solve
it, but I'm guessing this isn't possible.

Here is an updated package file to reproduce the issue:

--8<---cut here---start->8---
(use-modules (gnu)
 (gnu system)
 (srfi srfi-1)
 (guix inferior)
 (guix utils)
 (guix packages)
 (guix channels))
(use-package-modules linux)

(define channels
  (list (channel
 (name 'guix)
 (url "https://git.savannah.gnu.org/git/guix.git;)
 (commit "6886c4960dd4d8913113ae0330cd8b2d27947a57"

(define my-linux
  (let ((inferior (inferior-for-channels channels)))
(first (lookup-inferior-packages inferior "linux-libre"
 "5.12"

(package/inherit ddcci-driver-linux
  (arguments
   (ensure-keyword-arguments
(package-arguments ddcci-driver-linux)

;; It works!
;; `(#:linux ,(specification->package
;; "linux-libre@5.12"))

;; It doesn't work...
`(#:linux ,my-linux)

)))
--8<---cut here---end--->8---

Here is the backtrace outputed when building the package:

--8<---cut here---start->8---
$ COLUMNS=999 guix build -f ./40272.scm
Backtrace:
In guix/ui.scm:
463:3 19 (_)
In ice-9/boot-9.scm:
  1747:15 18 (with-exception-handler # _ #:unwind? _ #:unwind-for-type _)
  1752:10 17 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)
In guix/ui.scm:
450:6 16 (_)
In guix/scripts/build.scm:
608:5 15 (_)
In srfi/srfi-1.scm:
   673:15 14 (append-map # ("x86_64-linux"))
   586:17 13 (map1 ("x86_64-linux"))
In guix/scripts/build.scm:
   610:20 12 (_ _)
In guix/store.scm:
   1362:4 11 (map/accumulate-builds # _ _)
In srfi/srfi-1.scm:
   586:17 10 (map1 (#))
In guix/store.scm:
   1320:8  9 (call-with-build-handler # _)
In guix/scripts/build.scm:
   569:18  8 (_ _)
In guix/packages.scm:
  1177:16  7 (package-derivation _ # _ #:graft? _)
  1494:22  6 (thunk)
  1177:16  5 (package->bag _ _ _ #:graft? _)
  1279:21  4 (thunk)
In guix/build-system/linux-module.scm:
   132:22  3 (lower "ddcci-driver-linux-0.3.3" #:source _ #:inputs _ 
#:native-inputs _ #:outputs _ #:system _ #:target _ #:linux _ . _)
In ice-9/boot-9.scm:
  1685:16  2 (raise-exception _ #:continuable? _)
  1685:16  1 (raise-exception _ #:continuable? _)
  1685:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure %package-native-inputs-real: Wrong type argument: 
#
--8<---cut here---end--->8---

Issue #48082¹ is probably linked with that one but I couldn't reproduce
it.

¹ https://issues.guix.gnu.org/48082

Cheers,
- Brice

bug#48082: “guix environment -l” does not work with inferior packages

[Brice Waegeneire]

Hello Ricardo,

Ricardo Wurmus  writes:

> I wanted to use an environment file that contains a package 
> definition, and use it with inferiors.  Here is the full guix.scm:
>
> [...]
>
> The idea was that you would use the provided channels with
>
> USE_GUIX_INFERIOR=t guix environment -l guix.scm
>
> Unfortunately, this does not work, but there also is no error.  I 
> end up in an environment where none of the declared inputs are 
> available.  That’s because (guix scripts environments) has no 
> facilities to deal with packages that are of type 
> .

Unfortunatly the environment file isn't self contained (VERSION and the
package source are missing), so I couldn't reproduce your issue.

I wanted to reproduce it since I think it may be a duplicate of #40272¹,
that is you can't build packages with inputs containing inferior-packages.

¹ https://issues.guix.gnu.org/40272

Cheers,
- Brice

bug#49611: Despite wireless-regdb being installed in my operating-system, dmesg indicates it can't find `regulatory.db`

[Brice Waegeneire]

Hello Katherine,

TL;DR: “iw reg set US” correctly set the regulatory region from userland
but Guix can't set it just from the kernel.

Katherine Cox-Buday  writes:

> #+BEGIN_EXAMPLE
> [8.280462] cfg80211: Loading compiled-in X.509 certificates for
> regulatory database
> [8.282686] cfg80211: Loaded X.509 cert 'sforshee: 00b28ddf47aef9cea7'
> [8.284394] platform regulatory.0: Direct firmware load for
> regulatory.db failed with error -2
> [8.284415] cfg80211: failed to load regulatory.db
> #+END_EXAMPLE

There is three way to make the module cfg80211 load a regulatory
database:
1. Baking the DB into the kernel at build time by replacing the kernel's
  limited DB with the one from 'wireless-regdb' via the option
  CONFIG_CFG80211_INTERNAL_REGDB¹.
2. Loading the DB at boot time as a signed firmware file
  (lib/firmware/regulatory.db from 'wirerless-regdb') via the module
  'cfg80211'.
3. Doing it in userland with the helper 'crda' trough the utility
  'iwd' or its predecesor 'wpa_supplicant'.²

>From what I understand and what I tested, only the third method works in
Guix System ATM.  It could be usefull to also support the first or
second method to not depend on the userland setting the wireless
regulatory settings.

The error you are experiencing come from the second method failing to
load the signed firmware file. The issue is that Guix's 'wireless-regdb'
is build from source and not just copied as other distribution do, where
the provided binary also has a signature which the kernel accept through
a built in public key. Our build version isn't signed at all, the
commentaries in the definition for the package say Guix don't want to
maintain its own key for signing this package, which is understable and
state that Guix architecture already provide a similar level of
authenticity (I'm not so sure of that part).

So this error message should be harmless expected in some less common
context, such as having the rootfs on an NFS and using a wireless
connection to connect to the NFS server.  We could fix that without
maintaining keys by baking the DB into the kernel (first method).

> #+BEGIN_EXAMPLE
> $ find -L /run/current-system -name regulatory.db
> /run/current-system/profile/lib/firmware/regulatory.db
> #+END_EXAMPLE

We don't need the regulatory.db from 'wirelress-regdb' to be in the
system profile, instead it should be added to the operating-system's
firmware field. And the kernel will find it the directory contained in
“/sys/module/firmware_class/parameters/path”.

¹ https://cateee.net/lkddb/web-lkddb/CFG80211_INTERNAL_REGDB.html
² 
https://wireless.wiki.kernel.org/en/developers/regulatory/crda#changing_regulatory_domains

Cheers,
- Brice

bug#31337: Unable to use gnuk usb smartcard token on GuixSD

[Brice Waegeneire]

Brice Waegeneire  writes:

Closing this issue since it's should be solved.  Feel free to reopen it
if it's not the case.

bug#49297: zsh-autosuggestions build fail

[Brice Waegeneire]

Hello Zacchaeus,

Zacchaeus Scheffer  writes:

> I tried installing zsh-autosuggestions, but the build fails in three places 
> on the same file when running rspec, all with the same discrepancy:

Thank you for the bug report!  The issue appear after updating tmux to
3.2a, fom its changelog it's not clear to me which commit produced this
new behaviour.  I tired patching the tests to not resize the tmux
window, to no avail, so I just disabled thoses 3 tests in
348c70f3fdb55eb1373dfd57d9128d6f6bede02d.

Cheers,
- Brice

bug#45202: pcscd service doesn't respond to SIGTERM

[Brice Waegeneire]

Hello Raffael,

Raffael Stocker  writes:

> Interesting indeed.  From looking at the source of pcsc-lite (main() in
> pcscdaemon.c) it seems it's not modifying its sigmask.  IIRC, child
> processes inherit the parent's ignored signals, so if shepherd is
> ignoring SIGTERM before a fork() and not resetting to default before an
> exec(), pcscd will never receive the SIGTERM.  This might explain the
> behaviour.  I have not checked shepherd's source to confirm.
>
> If this is so, it should probably be fixed in shepherd, right?

Thank yu for the analysis of the issue, it helped me a lot to fix it.
The sheperd pcscd serice wasn't using the correct procedure to start the
daemon, it is fixed in e789ce538ed848bacb8f4eb5742f78b965ccf57c.

Cheers,
- Brice

bug#49161: kicad-5.1.6 fails to build

[Brice Waegeneire]

Hello bdju,

Cuirass can't manage to build kicad¹ also.  Comparing to the previous
build², libngspice has been updated from version 28 to 34³ and the
content of thoses 2 version are drasticly different, so I guess it's the
issue.  In particular the /gnu/store/...-libngspice-34/include/config.h
seems suspicious.

I tried bumping kicad to the latest 5.10, but it didn't make a
difference.

¹ https://ci.guix.gnu.org/build/608393/details
² https://ci.guix.gnu.org/build/608201/details
³ https://issues.guix.gnu.org/48979

Cheers,
- Brice

bug#49031: guix refresh error

[Brice Waegeneire]

Hello Emad,

Thank you for the bug report.  The issue come from the launchpad updater
failing on the bazaar pacakage.  I'll try to look further into it.

Cheers,
- Brice

bug#31337: Unable to use gnuk usb smartcard token on GuixSD

[Brice Waegeneire]

Hello Vagrant,

Vagrant Cascadian  writes:

> So this seems like a somewhat complicated workaround, and making a
> proper pcscd service would reduce the complication significantly.  It
> would obviously be slightly preferable to me for gnupg to support
> smartcards out of the box. :)

There is a pcscd service in Guix now. Do you still have issue with using
smartcard in Guix or can we close this one?

Cheers,
- Brice

bug#36855: bug#37596: 'guix system switch-generation' does not reload Shepherd services

[Brice Waegeneire]

Hello Guix,

To summarise the whole thread, in addition to the main issue explained
in the title “'guix system switch-generation' does not reload Shepherd
services“ there are 2 other issues talked about.

1. The activation script isn't executed by 'guix system
 switch-generation', which is fixed in
 df138dc20858725b90ed77be85f3318cbe1be73a and later.
2. The activation process isn't exclusivly build during the system
 building process, whihc may the leave the system in half-hazard state
 if the building taking place during the activation fail.

The second side issue should proablby have it's own bug report since
it's still present and we should keep that bug report only for the lack
of reloading of shepherd service when using 'guix system
switch-generation' (or 'roll-back').

Cheers,
- Brice

bug#46961: Nginx and certbot cervices don't play well togther

[Brice Waegeneire]

Hello Guix,

After an suggestion from Tobias to give a try at forcing HTTPS for
Guix's websites on berlin, I had a go at it but it was more complex that
what I was expecting.  Looking deeper at nginx and certbot services it
appear both services don't play that well together, requering a inital
dance when deploying a new HTTPS virtual server. As explained in #36389¹
you need to:
« - run system configuration with just the certbot service
- use certbot to generate your initial certificates
- reconfigure with additional nginx server configuration, pointing to
  the SSL certificates created by certbot »

Indeed, with an operating-system continaing the following services it's
impossible to sart Nginx and Certbot at once as one would expect:

--8<---cut here---start->8---
(service nginx-service-type)
(service php-fpm-service-type)

(service certbot-service-type
 (certbot-configuration
   (certificates
 (list (certificate-configuration
 (domains '("test.sama.re"))
 (deploy-hook
   (program-file
 "nginx-deploy-hook"
 #~(let ((pid (call-with-input-file "/var/run/nginx.pid"
read)))
 (kill pid SIGHUP)

(cat-avatar-generator-service
  #:configuration
  (nginx-server-configuration
(listen '("443 ssl"))
(server-name '("test.sama.re"))
(ssl-certificate
  "/etc/letsencrypt/live/test.sama.re/fullchain.pem")
(ssl-certificate-key
  "/etc/letsencrypt/live/test.sama.re/privkey.pem")))
--8<---cut here---end--->8---

Here is the error from reconfiguring the system:

--8<---cut here---start->8---
# guix system reconfigure /etc/config.sm
[...]
building /gnu/store/55cq2ja4i5489s55viv9fh50032d1ziy-switch-to-system.scm.drv...
making '/gnu/store/p2rkcmrnpls5py7x2iappf2qcbxwlb95-system' the current 
system...
setting up setuid programs in '/run/setuid-programs'...
populating /etc from /gnu/store/k2kb8hsq3q0dhhad4a9pjh4kx32mn4g0-etc...
/var/lib/certbot/renew-certificates may need to be run
creating nginx log directory '/var/log/nginx'
creating nginx run directory '/var/run/nginx'
creating nginx temp directories 
'/var/run/nginx/{client_body,proxy,fastcgi,uwsgi,scgi}_temp'
nginx: [emerg] cannot load certificate 
"/etc/letsencrypt/live/test.sama.re/fullchain.pem": BIO_new_file() failed (SSL: 
error:02001002:system library:fopen:No such file or 
directory:fopen('/etc/letsencrypt/live/test.sama.re/fullchain.pem','r') 
error:2006D080:BIO routines:BIO_new_file:no such file)
nginx: configuration file 
/gnu/store/chpw631djay2w39x7agg8zz53iayy4zy-nginx.conf test failed
`/gnu/store/jyxc290q7jyhhpalski0h13h8z9zvnka-openssh-authorized-keys/bricewge' 
-> `/etc/ssh/authorized_keys.d/bricewge'
The following derivation will be built:
   /gnu/store/qlzbrmpx6wnhzqcpqi9yrbb6xva82kvr-install-bootloader.scm.drv

building 
/gnu/store/qlzbrmpx6wnhzqcpqi9yrbb6xva82kvr-install-bootloader.scm.drv...
guix system: bootloader successfully installed on '/dev/sda'
The following derivation will be built:
   /gnu/store/ikak44inrnz3b3dx8j8csdakgqafbijn-upgrade-shepherd-services.scm.drv

building 
/gnu/store/ikak44inrnz3b3dx8j8csdakgqafbijn-upgrade-shepherd-services.scm.drv...
shepherd: Removing service 'dbus-system'...
shepherd: Service dbus-system has been stopped.
shepherd: Done.
shepherd: Service host-name has been started.
shepherd: Service user-homes has been started.
shepherd: Service host-name has been started.
shepherd: Service term-auto could not be started.
shepherd: Service php-fpm has been started.
guix system: warning: exception caught while executing 'start' on service 
'nginx':
Throw to key `%exception' with args `("#< program: 
\"/gnu/store/hn1mvgafkpf5knrnzvwpgpdlzmq553al-nginx-1.19.6/sbin/nginx\" 
arguments: (\"-c\" \"/gnu/store/chpw631djay2w39x7agg8zz53iayy4zy-nginx.conf\" 
\"-p\" \"/var/run/nginx\") exit-status: 1 term-signal: #f stop-signal: #f>")'.
guix system: warning: some services could not be upgraded
hint: To allow changes to all the system services to take effect, you will need 
to reboot.
--8<---cut here---end--->8---

What happen is Nginx won't start because the certficate related files
present in it's configuration doesn't exist and we can't get a Let's
Encrypt certificate from a HTTP-01 challenge without that web server
running.  NixOS broke that chicken and egg problem by generating a
self-signed certificate first, after that starting nginx, then
requesting a valid Lets' Encrypt certificate and finally reloading
Nginx.  That way we end up with a Nginx server using Let's Encrypt
certificate with no more that a simple system reconfiguration.  Note
that, the initial self-signed certificate will need to be at the path
were certbot will put it's 

bug#40456: Invalid keyboard layouts pass through

[Brice Waegeneire via web]

We could listen from the WARNING: string on stderr of ckbcomp, or that dirty 
pipeline return 1 with an incorrect variant « setxkbmap -print fr foo | xkbcomp 
- -C »

bug#46194: [PATCH] gnu: opendoas: Update to 6.8.1.

[Brice Waegeneire]

* gnu/packages/admin.scm (opendoas): Update to 6.8.1.

Fixes #46194.
---
As there isn't any service for this package (I'm working on it), it's quite
useless and there isn't any package depending on it.  I guess very few
people, if any, are using it so I see no need for grafting here.

 gnu/packages/admin.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 538e8d3eb4..1ddbea7a02 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -1512,7 +1512,7 @@ commands and their arguments.")
 (define-public opendoas
   (package
 (name "opendoas")
-(version "6.8")
+(version "6.8.1")
 (source (origin
   (method git-fetch)
   (uri (git-reference
@@ -1521,7 +1521,7 @@ commands and their arguments.")
   (file-name (git-file-name name version))
   (sha256
(base32
-"1dlwnvy8r6slxcy260gfkximp1ms510wdslpfq9y6xvd2qi5izcb"
+"0gfcssm21vdfg6kcrcc7hz1h4jmhy2zv29rfqyrrj3a6r9b5ah8p"
 (build-system gnu-build-system)
 (arguments
  `(#:phases
-- 
2.29.2

bug#38884: guix system roll-back doesn't roll setuid-programs back

[Brice Waegeneire via web]

Hello Guix,

"setuid-programs-service" extend the activation script which isn't loaded when 
rolling-back.

A difference between "reconfigure" and "switch-generation" (of which 
"roll-back" is just an useful alias) is that the former load the activation 
script (guix scripts system reconfigure switch-system-program) after switching 
the profile's symlinks and before installing the bootloader while the latter 
install the bootloader (guix scripts system switch-to-system-generation) then 
switch the symlinks (guix profiles switch-to-generation).  Fixing that could be 
done by loading the activation script after switching profiles, as 
"reconfigure" does.
I guess that loading the activation script again, on a already running running 
system, can have side effect but it shouldn't be an issue as it's already done 
by "reconfigure".

Cheers,
- Brice

bug#32934: [PATCH] gnu: privoxy: Fix default logging configuration.

[Brice Waegeneire]

Fixes <https://issues.guix.info/32934>.

* gnu/packages/tor.scm (privoxy)[arguments]: Add
'localstatedir'.
: Add 'patch-default-logging'.
---

Hello Pierre,

This patch should allow one to use privoxy's default configuration as is:

--8<---cut here---start->8---
$ /gnu/store/1705l8br2bc4lvs7wf7mpzj4ss0zkl9c-privoxy-3.0.28/sbin/privoxy 
/gnu/store/1705l8br2bc4lvs7wf7mpzj4ss0zkl9c-privoxy-3.0.28/etc/privoxy/config
$ echo $?
0
--8<---cut here---end--->8---

- Brice

 gnu/packages/tor.scm | 25 +++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/tor.scm b/gnu/packages/tor.scm
index 2f2623b0e6..19ab5cf374 100644
--- a/gnu/packages/tor.scm
+++ b/gnu/packages/tor.scm
@@ -8,6 +8,7 @@
 ;;; Copyright © 2017 Rutger Helling 
 ;;; Copyright © 2018 Ricardo Wurmus 
 ;;; Copyright © 2020 Vincent Legoll 
+;;; Copyright © 2020 Brice Waegeneire 
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -141,8 +142,28 @@ rejects UDP traffic from the application you're using.")
;; $out/etc/privoxy.
#:configure-flags (list (string-append "--sysconfdir="
   (assoc-ref %outputs "out")
-  "/etc/privoxy"))
-   #:tests? #f))
+  "/etc/privoxy")
+   "--localstatedir=/var")
+   #:tests? #f  ; no test suite
+   #:phases
+   (modify-phases %standard-phases
+ (add-after 'unpack 'patch-default-logging
+   (lambda _
+ (with-fluids ((%default-port-encoding "ISO-8859-1"))
+   ;; Do not create /var/run nor /var/log/privoxy/logfile.
+   (substitute* "GNUmakefile.in"
+ (("(logfile \\|\\| exit )1" _ match)
+  (string-append match "0"))
+ (("(\\$\\(DESTDIR\\)\\$\\(SHARE_DEST\\)) " _ match)
+  match)
+ ((".*\\$\\(LOG_DEST\\) \\$\\(DESTDIR\\)\\$\\(PID_DEST\\).*")
+  ""))
+   ;; Disable logging in the default configuration to allow for
+   ;; non-root users using it as is.
+   (substitute* "config"
+ (("^logdir") "#logdir")
+ (("^logfile") "#logfile")))
+ #t)
 (inputs
  `(("w3m" ,w3m)
("pcre" ,pcre)
-- 
2.26.2

bug#41237: guix deploy hangs when a file-system-device is set to a UUID

[Brice Waegeneire]

Hello Ludovic,

The same with “COLUMNS=200“:

--8<---cut here---start->8---
scheme@(guix-user) [1]> ,bt
In ice-9/boot-9.scm:
   2806:4  6 (save-module-excursion _)
  4351:12  5 (_)
In unknown file:
   4 (find #gnu/build/file-systems.scm:606:4 (device)> ("/dev/sda" "/dev/sda1" 
"/dev/sda2" "/dev/sda3" "/dev/sdb" "/dev/sdb2" "/dev/sdb3"))

In gnu/system/uuid.scm:
302:5  3 (uuid=? . _)
In unknown file:
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0
scheme@(guix-user) [1]> ,locals
  Local variables:
  $1 = closure = #
scheme@(guix-user) [1]> ,up
In ice-9/top-repl.scm:
37:24  1 (_ _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  $2 = arg = signal
  $3 = arg = #f
  $4 = arg = ()
  $5 = pair = (() (2))
  $6 = pair = ("User interrupt" () (2))
  $7 = pair = (#f "User interrupt" () (2))
scheme@(guix-user) [1]> ,up
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0
scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In gnu/system/uuid.scm:
302:5  3 (uuid=? . _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  $8 = closure = #
  $9 = w = #vu8(185 176 222 181)
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 3
scheme@(guix-user) [1]> ,up
   4 (find #gnu/build/file-systems.scm:606:4 (device)> ("/dev/sda" "/dev/sda1" 
"/dev/sda2" "/dev/sda3" "/dev/sdb" "/dev/sdb2" "/dev/sdb3"))

scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In ice-9/boot-9.scm:
  4351:12  5 (_)
scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In ice-9/boot-9.scm:
   2806:4  6 (save-module-excursion _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  thunk = #
  $10 = obj = #
  $11 = outer-module = #f
  $12 = obj = #7f9a9505f6e0>>
  $13 = box = #set-current-module (_)>>

  closure = #
scheme@(guix-user) [1]> ,up
Already at outermost frame.
scheme@(guix-user) [1]>
--8<---cut here---end--->8---

- Brice

bug#41661: [Cuirass] Doesn't honor 'timeout' nor 'max-silent-time' leading to mising substitutes

[Brice Waegeneire]

Hello,

On 2020-06-04 12:16, Ludovic Courtès wrote:

Hi,

Leo Famulari  skribis:

We really need to improve our CI so that it's possible to discover 
these

build failures. Currently it's quite hard to monitor if they get built
unless you just do `guix build foo`.


Or ‘guix weather’, which is not worse than a web UI IMO.


+1 for CLI tools!


The last time this came up [0] it was said that maybe it's not really
correct to make these properties of the package, but rather of the CI
jobs. It makes sense but we need a solution, or stop supporting
underpowered architectures like armhf, because most of those machines
can't build this stuff themselves, and it's not good to advertise
support to people who will just be disappointed later.


Yeah.  I think we need to look at these on a case-by-case basis.  Guile
is one of those packages known to hit the max-silent-time of 1h (?)
that’s configured on berlin.  Hopefully it will no longer be the case
starting from 3.0.3.

What about Linux-libre?  Does it hit the max absolute build time on
armhf?


I misdiagnosed the issue, substitutes for it are available now and 
previous

seems to be there too.  IDK why it wasn't available before nor why I
couldn't manage to built it myself.


As I wrote elsewhere, I think it makes more sense in a way to have
those timeouts configured system-wide.  But yeah, we need to be
pragmatic.

Thanks,
Ludo’.


- Brice

bug#41237: guix deploy hangs when a file-system-device is set to a UUID

[Brice Waegeneire]

On 2020-06-04 11:29, Ludovic Courtès wrote:

Hey,

Brice Waegeneire  skribis:


On 2020-06-04 09:41, Ludovic Courtès wrote:

Brice Waegeneire  skribis:

In ice-9/boot-9.scm:
2806:4  6 (save-module-excursion _)
   4351:12  5 (_)
In unknown file:
4 (find #gnu/build/file-syste…>

…)
In gnu/system/uuid.scm:
 302:5  3 (uuid=? . _)
In unknown file:
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0


And what does “,locals” show?


There isn't much:

scheme@(guix-user) [1]> ,locals
   Local variables:
   $1 = closure = #continuable?)>


And in upper frames?  (Type “,up”.)


I went trough all the upper frames:

--8<---cut here---start->8---
scheme@(guix-user)> (load 
"/gnu/store/wzvn8r2z7lnf5mqzagxzcb64wr69kgk4-remote-assertion.scm")

^Cice-9/boot-9.scm:1669:16: In procedure raise-exception:
User interrupt

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guix-user) [1]> ,bt
In ice-9/boot-9.scm:
   2806:4  6 (save-module-excursion _)
  4351:12  5 (_)
In unknown file:
   4 (find # …)
In gnu/system/uuid.scm:
302:5  3 (uuid=? . _)
In unknown file:
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0
scheme@(guix-user) [1]> ,locals
  Local variables:
  $1 = closure = #
scheme@(guix-user) [1]> ,up
In ice-9/top-repl.scm:
37:24  1 (_ _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  $2 = arg = signal
  $3 = arg = #f
  $4 = arg = ()
  $5 = pair = (() (2))
  $6 = pair = ("User interrupt" () (2))
  $7 = pair = (#f "User interrupt" () (2))
scheme@(guix-user) [1]> ,up
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0
scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In gnu/system/uuid.scm:
302:5  3 (uuid=? . _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  $8 = closure = #
  $9 = w = #vu8(185 176 222 181)
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 3
scheme@(guix-user) [1]> ,up
   4 (find # …)
scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In ice-9/boot-9.scm:
  4351:12  5 (_)
scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In ice-9/boot-9.scm:
   2806:4  6 (save-module-excursion _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  thunk = #
  $10 = obj = #
  $11 = outer-module = #f
  $12 = obj = #
  $13 = box = #
  closure = #
scheme@(guix-user) [1]> ,up
Already at outermost frame.
--8<---cut here---end--->8---

- Brice

bug#41237: guix deploy hangs when a file-system-device is set to a UUID

[Brice Waegeneire]

Hello Ludo',

On 2020-06-04 09:41, Ludovic Courtès wrote:

Brice Waegeneire  skribis:

In ice-9/boot-9.scm:
2806:4  6 (save-module-excursion _)
   4351:12  5 (_)
In unknown file:
4 (find # 
…)

In gnu/system/uuid.scm:
 302:5  3 (uuid=? . _)
In unknown file:
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0


And what does “,locals” show?


There isn't much:

--8<---cut here---start->8---
scheme@(guix-user) [1]> ,locals
  Local variables:
  $1 = closure = #
--8<---cut here---end--->8---

- Brice

bug#41237: guix deploy hangs when a file-system-device is set to a UUID

[Brice Waegeneire]

Hello Ludo',

On 2020-06-03 14:56, Ludovic Courtès wrote:

Could you try running this at the REPL:

  (load 
"/gnu/store/wzvn8r2z7lnf5mqzagxzcb64wr69kgk4-remote-assertion.scm")


and then hit C-c and type “,bt” to get a backtrace?


Here is the backtrace:

--8<---cut here---start->8---
In ice-9/boot-9.scm:
   2806:4  6 (save-module-excursion _)
  4351:12  5 (_)
In unknown file:
   4 (find # …)
In gnu/system/uuid.scm:
302:5  3 (uuid=? . _)
In unknown file:
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0
--8<---cut here---end--->8---

- Brice

bug#41651: [PATCH v2] gnu: network-manager-applet: Propagate 'libnma'.

[Brice Waegeneire]

Fixes <https://issues.guix.info/41653>.

* gnu/packages/gnome.scm (network-manager-applet)[inputs]: Move 'libnma'
to …
[propagated-inputs]: … here.
---

On 2020-06-02 19:12, Efraim Flashner wrote:
> On Tue, Jun 02, 2020 at 08:38:14PM +0200, Brice Waegeneire wrote:
>> Fixes <https://issues.guix.info/41653>.
>>
>> * gnu/packages/gnome.scm (network-manager-applet)[inputs]: Move 'libnma'
>> to …
>> [native-inputs]: … here.
>
> I think you mean propagated

Yes, tank you Efraim, it's fixed in this version.

 gnu/packages/gnome.scm | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 0d63579d4a..860b5223b8 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -6730,13 +6730,14 @@ Cisco's AnyConnect SSL VPN.")
("gtk-doc" ,gtk-doc)
("pkg-config" ,pkg-config)))
 (propagated-inputs
- ;; libnm-gtk.pc refers to all these.
- `(("dbus-glib" ,dbus-glib)
+ `(;; libnm-gtk.pc refers to all these.
+   ("dbus-glib" ,dbus-glib)
("gtk+" ,gtk+)
-   ("network-manager" ,network-manager)))
+   ("network-manager" ,network-manager)
+   ;; nm-applet need org.gnome.nm-applet.gschema.xml
+   ("libnma" ,libnma)))
 (inputs
  `(("gcr" ,gcr)
-   ("libnma" ,libnma)
("libgudev" ,libgudev)
("libnotify" ,libnotify)
("libsecret" ,libsecret)
-- 
2.26.2

bug#41668: Failing test: gui-installed-desktop-os-encrypted

[Brice Waegeneire]

Hello Guix,

For some time now the system test 'gui-installed-desktop-os-encrypted'
doesn't succeed, the last time it passed was 2020-04-11[0]. This is
problematic since it exercise a lot of packages and thus can be used to
test those packages. Ludovic attempted to fixed it[1] but it didn't 
fixed

the test on my side.

[0]: 
http://ci.guix.gnu.org/search?query=gui-installed-desktop-os-encrypted+system%3Ax86_64-linux+spec%3Aguix-master+status%3Asuccess

[1]: https://issues.guix.info/40790#7

- Brice

bug#41651: [PATCH] gnu: network-manager-applet: Propagate 'libnma'.

[Brice Waegeneire]

Fixes .

* gnu/packages/gnome.scm (network-manager-applet)[inputs]: Move 'libnma'
to …
[native-inputs]: … here.
---

Sorry for the crappy patchset.  This patch should solve that issue.


 gnu/packages/gnome.scm | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 0d63579d4a..860b5223b8 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -6730,13 +6730,14 @@ Cisco's AnyConnect SSL VPN.")
("gtk-doc" ,gtk-doc)
("pkg-config" ,pkg-config)))
 (propagated-inputs
- ;; libnm-gtk.pc refers to all these.
- `(("dbus-glib" ,dbus-glib)
+ `(;; libnm-gtk.pc refers to all these.
+   ("dbus-glib" ,dbus-glib)
("gtk+" ,gtk+)
-   ("network-manager" ,network-manager)))
+   ("network-manager" ,network-manager)
+   ;; nm-applet need org.gnome.nm-applet.gschema.xml
+   ("libnma" ,libnma)))
 (inputs
  `(("gcr" ,gcr)
-   ("libnma" ,libnma)
("libgudev" ,libgudev)
("libnotify" ,libnotify)
("libsecret" ,libsecret)
-- 
2.26.2

bug#41661: [Cuirass] Doesn't honor 'timeout' nor 'max-silent-time' leading to mising substitutes

[Brice Waegeneire]

Hello Guix,

Unlike Hydra, Curiass don't honor 'timeout' and 'max-silent-time'
properties[0]. This lead to some packages never having substitutes, in
particular for the 'armhf-linux' system for example 'linux-libre' or
'guile-static-stripped'[1]. Which mean it's really difficult to use such
systems since each users need to build thoses really long running[2]
packages. We also don't know if thoses package may fail for a reason 
other

than timing out.

[0]: https://lists.gnu.org/archive/html/guix-devel/2020-03/msg00209.html
[1]: 
http://ci.guix.gnu.org/search?query=guile-static-stripped%20system:armhf-linux
[2]: 
https://git.savannah.gnu.org/cgit/guix.git/tree/gnu/packages/guile.scm?id=f51fd97ec54a98668d63c52d8a6bd75d8dc3292e#n257


- Brice

bug#41238: guix deploy close ssh session after each store items sent

[Brice Waegeneire]

On 2020-05-15 06:59, Oleg Pykhalov wrote:

Brice Waegeneire  writes:

“guix deploy” bugs; they keep coming! “guix deploy” doesn't make use 
of SSH
channels[0], instead it close the SSH session each time after sending 
store

items.


Did you try a built in SSH's “Control*” feature?

ssh_config (0)

  ControlMaster auto
  ControlPath ~/.ssh/master-%r@%h:%p
  ControlPersist yes


Of course, it's my default setting for SSH (and the host I tried to 
deploy
to). But “guix deploy” don't support it; it's the core of the issue 
here.


I didn't mention those options in the initial bug report because IFAIK 
the

ssh functionality for “guix deploy” is provided by guile-ssh, a wrapper
around libssh which isn't related to OpenSSH in any way. So the 
“Control*”
options doesn't apply here, instead they talk about channels and 
session[0]

which seems to be the terms used in the SSH specification.

[0]: https://api.libssh.org/stable/libssh_tutor_guided_tour.html

bug#41243: guix deploy doesn't respect machine-ssh-configuration-identity field

[Brice Waegeneire]

Hi it's me again,

“machine-ssh-configuration-identity" field isn't respected. When setting 
it

to the path of my password-less private key (bad!), with a SSH agent
running and my smart-card plugged in, running “guix deploy” my agent 
will

asked the pin of my smartcard first.  I was expecting that setting this
field to a true value will bypass the agent completely, only trying to
connect with the specified key, while setting it to false will fallback 
on

the running agent.

- Brice

bug#41238: guix deploy close ssh session after each store items sent

[Brice Waegeneire]

Hey Guix,

“guix deploy” bugs; they keep coming! “guix deploy” doesn't make use of 
SSH
channels[0], instead it close the SSH session each time after sending 
store

items. This may be unnoticeable by users using a password-less SSH key
(bad!) or an SSH agent (better!) but for the other it mean entering the
password ~5 times per host per deployment which get old very quick. In 
my

case I use a keycard that require me to physically interact with it for
each authentication request, it means multiple touch per deployment,
reducing it just one would be a great relief.

[0]: 
https://github.com/artyom-poptsov/guile-ssh/blob/b11182d5582844df0c8d1fcb7177ff85f8ac3bcd/doc/api-sessions.texi#L17


- Brice

bug#41237: guix deploy hangs when a file-system-device is set to a UUID

[Brice Waegeneire]

Hey Guix,

Here is an other “guix deploy” bug: setting a file-system-device field 
to a

UUID makes deploy hangs indefinitely. Using a string (eg.: "/dev/sda1")
instead, “guix deploy” succeed. Following is an output showing it 
hanging:


--8<---cut here---start->8---
$ guix deploy -Lmodules systems/hystou-p04.scm
guix deploy: warning: failed to load '(config workstation)':
no code for module (gnu services lightdm)
The following 1 machine will be deployed:
  abricot

guix deploy: deploying to abricot...
The following derivations will be built:
   /gnu/store/q021ynnwnn3b0py7vp682i980aamcbhy-remote-exp.scm.drv
   /gnu/store/bifn8l2lqh34rn5w6ca9x3n16ji9qh31-remote-assertion.scm.drv
building 
/gnu/store/bifn8l2lqh34rn5w6ca9x3n16ji9qh31-remote-assertion.scm.drv...
building 
/gnu/store/q021ynnwnn3b0py7vp682i980aamcbhy-remote-exp.scm.drv...

sending 2 store items (0 MiB) to '192.168.10.10'...
--8<---cut here---end--->8---

On the host side, when “guix deploy” is hanging:

--8<---cut here---start->8---
$ ps -aux | grep remote-exp
root  1910  197  0.2  81756 37812 ?Rsl  15:47   2:00 
/gnu/store/0m0vd873jp61lcm4xa3ljdgx381qa782-guile-3.0.2/bin/guile 
--no-auto-compile -L 
/gnu/store/waw3q9xvwz6wivp4skmirxpg53znrs3h-module-import -C 
/gnu/store/waw3q9xvwz6wivp4skmirxpg53znrs3h-module-import -c (begin 
(use-modules (guix repl)) (send-repl-response (quote 
(with-output-to-port (current-error-port) (lambda () (primitive-load 
"/gnu/store/2xh7fzjk1hrz45w2bn1p6fi994f6lkrp-remote-exp.scm" 
(current-output-port)) (force-output))
bricewge  1919  0.0  0.0   6372  1748 pts/0S+   15:48   0:00 grep 
remote-exp

$ cat /gnu/store/2xh7fzjk1hrz45w2bn1p6fi994f6lkrp-remote-exp.scm
#!/gnu/store/18hp7flyb3yid3yp49i6qcdq0sbi5l1n-guile-3.0.2/bin/guile 
--no-auto-compile

!#
(map (lambda (file) (false-if-exception (primitive-load file))) (quote 
("/gnu/store/y0dhva989bqyqqin18d2rkxd4fbkznxi-remote-assertion.scm" 
"/gnu/store/cbyixyqc7rslp5nwxh3np1h9jbwpk7pk-remote-assertion.scm" 
"/gnu/store/apvm855zplmp2cl38hw5ych4d559gza6-remote-assertion.scm")))

$ cat /gnu/store/y0dhva989bqyqqin18d2rkxd4fbkznxi-remote-assertion.scm
(catch (quote system-error) (lambda () (stat "/dev/sda3") #t) (lambda 
args (system-error-errno args)))%abricot% cat 
/gnu/store/cbyixyqc7rslp5nwxh3np1h9jbwpk7pk-remote-assertion.scm
(eval-when (expand load eval) (let ((extensions (quote ())) (prepend 
(lambda (items lst) (let loop ((items items) (lst lst)) (if (null? 
items) lst (loop (cdr items) (cons (car items) (delete (car items) 
lst (set! %load-path (prepend (cons 
"/gnu/store/6sy0ignb9mhrxqaq43yqn0sxy4vjxvdk-module-import" (map (lambda 
(extension) (string-append extension "/share/guile/site/" 
(effective-version))) extensions)) %load-path)) (set! 
%load-compiled-path (prepend (cons 
"/gnu/store/ag9kc8igsc6gcd12sr4h2qp6bgapzfih-module-import-compiled" 
(map (lambda (extension) (string-append extension "/lib/guile/" 
(effective-version) "/site-ccache")) extensions)) 
%load-compiled-path(begin (use-modules (gnu build file-systems) (gnu 
system uuid)) (define uuid (string->uuid "B5DE-B0B9")) 
(find-partition-by-uuid uuid))

$ cat /gnu/store/cbyixyqc7rslp5nwxh3np1h9jbwpk7pk-remote-assertion.scm
(eval-when (expand load eval) (let ((extensions (quote ())) (prepend 
(lambda (items lst) (let loop ((items items) (lst lst)) (if (null? 
items) lst (loop (cdr items) (cons (car items) (delete (car items) 
lst (set! %load-path (prepend (cons 
"/gnu/store/6sy0ignb9mhrxqaq43yqn0sxy4vjxvdk-module-import" (map (lambda 
(extension) (string-append extension "/share/guile/site/" 
(effective-version))) extensions)) %load-path)) (set! 
%load-compiled-path (prepend (cons 
"/gnu/store/ag9kc8igsc6gcd12sr4h2qp6bgapzfih-module-import-compiled" 
(map (lambda (extension) (string-append extension "/lib/guile/" 
(effective-version) "/site-ccache")) extensions)) 
%load-compiled-path(begin (use-modules (gnu build file-systems) (gnu 
system uuid)) (define uuid (string->uuid "B5DE-B0B9")) 
(find-partition-by-uuid uuid))

$ cat /gnu/store/apvm855zplmp2cl38hw5ych4d559gza6-remote-assertion.scm
(eval-when (expand load eval) (let ((extensions (quote ())) (prepend 
(lambda (items lst) (let loop ((items items) (lst lst)) (if (null? 
items) lst (loop (cdr items) (cons (car items) (delete (car items) 
lst (set! %load-path (prepend (cons 
"/gnu/store/88hn0npj9xs099amjbsl7gjh9j3fy1yb-module-import" (map (lambda 
(extension) (string-append extension "/share/guile/site/" 
(effective-version))) extensions)) %load-path)) (set! 
%load-compiled-path (prepend (cons 
"/gnu/store/865zg228hasfmv879g8y12n8i2s8si0f-module-import-compiled" 
(map (lambda (extension) (string-append extension "/lib/guile/" 
(effective-version) "/site-ccache")) extensions)) 
%load-compiled-path(begin (use-modules (gnu build file-systems) (gnu 
build 

bug#41236: guix deploy error message can be too obscure to understand

[Brice Waegeneire]

Hello again,

Guix deploy errors message can be hard to understand, see the following
output for example:

--8<---cut here---start->8---
$ guix deploy -Lmodules systems/hystou-p04.scm
guix deploy: warning: failed to load '(config workstation)':
no code for module (gnu services lightdm)
The following 1 machine will be deployed:
  abricot

guix deploy: deploying to abricot...
sending 0 store items (0 MiB) to '192.168.10.10'...
sending 0 store items (0 MiB) to '192.168.10.10'...
guix deploy: error: failed to deploy abricot: Wrong type argument in 
position 1 (expecting struct): ~S

--8<---cut here---end--->8---

By using “guix repl“ I managed to understand that I was setting a field 
to
a undeclared variable: “keyboard-layout“.  A stupid mistake on my part 
that

should have been trivial to spot took hours instead because the error
message was obscure.

--8<---cut here---start->8---
(operating-system
  …
  (bootloader
(bootloader-configuration
   …
  (keyboard-layout keyboard-layout
--8<---cut here---end--->8---

- Brice

bug#41235: guix deploy can't deploy with a user different than root

[Brice Waegeneire]

Hello,

When trying to reproduce another “guix deploy” bug for a future bug 
report

I stumbled upon this one: it's not possible to deploy as a user
(machine-ssh-configuration-user) different than “root“, even with a
properly configured sudoers file[0]. Deploying with root works when ssh 
is

configured with “PermitRootLogin yes”. Following is the backtrace:

--8<---cut here---start->8---
$ guix deploy -Lmodules systems/hystou-p04.scm
guix deploy: warning: failed to load '(config workstation)':
no code for module (gnu services lightdm)
The following 1 machine will be deployed:
  abricot

guix deploy: deploying to abricot...
sending 0 store items (0 MiB) to '192.168.10.10'...
Backtrace:
In guix/ui.scm:
  1936:12 19 (run-guix-command _ . _)
In guix/status.scm:
776:4 18 (call-with-status-report _ _)
In ice-9/boot-9.scm:
  1736:10 17 (with-exception-handler _ _ #:unwind? _ # _)
In guix/store.scm:
   630:22 16 (thunk)
   1295:8 15 (call-with-build-handler _ _)
   1295:8 14 (call-with-build-handler # …)
In guix/scripts/deploy.scm:
   155:12 13 (_)
In guix/store.scm:
   1336:2 12 (map/accumulate-builds # …)
In srfi/srfi-1.scm:
   586:17 11 (map1 (#< things: (("/gnu/store/x32cnfkd50…>))
In guix/store.scm:
   1295:8 10 (call-with-build-handler # …)
In guix/scripts/deploy.scm:
123:2  9 (_ _)
In ice-9/boot-9.scm:
  1736:10  8 (with-exception-handler _ _ #:unwind? _ # _)
In guix/scripts/deploy.scm:
133:4  7 (_)
In guix/store.scm:
  2015:24  6 (run-with-store # …)
In gnu/machine/ssh.scm:
416:2  5 (_ _)
316:2  4 (_ _)
In guix/remote.scm:
   138:10  3 (_ _)
In guix/store.scm:
  1886:38  2 (_ #)
In ice-9/boot-9.scm:
  1669:16  1 (raise-exception _ #:continuable? _)
  1667:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1667:16: In procedure raise-exception:
ERROR:
  1. :
  message: "unknown error while sending files over SSH"
  status: 44
--8<---cut here---end--->8---

[0]: 
https://guix.gnu.org/manual/devel/en/html_node/Invoking-guix-deploy.html#Invoking-guix-deploy


- Brice

bug#41082: nomodeset

[Brice Waegeneire]

Hello,

On 2020-05-06 20:53, Danny Milosavljevic wrote:
[...]

Maybe that's premature and we could use etc-service-type in the mean 
time.
However, if a kernel-module-configuration-service appeared later then 
users

would have to migrate to it manually.  Not great.


> kernel-module-configuration-service if/when it exists.  (I did not
> know how to extend etc-service-type with a file created at runtime not
> build time, but maybe kernel-module-configuration-service works
> differently anyway.)


I think Brice already had a nice mockup for the design, but I don't 
know whether

Brice plans to do it or not.  Brice?


I don't have code for the kernel-module-configuration-service yet but 
since use
cases for this service come up every few weeks it may be time to 
implement it.

I'll work on it in the coming days.

Cheers,
- Brice

bug#41146: [Cuirass] Build non-substitutable packages

[Brice Waegeneire]

Hello Guix,

It would be useful to build non-substitutable packages on cuirass, 
without offering substitutes for it, to catch broken packages.  For 
example ATM the zfs package is broken but it hasn't been noticed because 
it isn't present on ci.guix.gnu.org[0].


This wish item follows a discussion on IRC[1].

[0]: https://ci.guix.gnu.org/search?query=zfs
[1]: http://logs.guix.gnu.org/guix/2020-05-09.log#102425

- Brice

bug#31780: (no subject)

[Brice Waegeneire]

Fixed by 2f93615670da1f9cafa90a904c7b6254ab73586e.

bug#40945: (no subject)

[Brice Waegeneire]

Fixed by ab034adfe86333fccd6afe476806f169e2074d69.

bug#35574: bcm5974 touchpad is not recognized as touchpad

[Brice Waegeneire]

On 2020-04-29 18:31, Mathieu Othacehe wrote:
On Wed, Apr 29, 2020 at 06:41:22PM +0200, pelzflorian (Florian Pelz) 
wrote:

I suggest the attached revert instead


This patch and the associated revert look fine to me. Let's maybe wait
for Brice opinion.

In the meantime, if you could give me your opinion on:
https://lists.gnu.org/archive/html/guix-patches/2020-04/msg00707.html,
it would be great :)

Thanks,

Mathieu


LGTM! I wonder if, as Ubuntu, we should also blacklist “usbkbd” the
counterpart of “usbmouse” or just to wait a bug report about it - if
it ever happen.

- Brice

bug#31780: Fix #31780 manual mentions “git-http-service”, but it does not exist

[Brice Waegeneire]

This should be fixed by https://issues.guix.info/issue/40956.

bug#28159: Closing bug #28159? Updater needs to support HTTP(S) servers

[Brice Waegeneire]

Hello Guix,

It looks like now most of the major updaters that relied on FTP (GNU,
kernel.org, KDE and Gnbome) now support HTTP(S). I think we can close 
this

bug.

Ludovic Courtès wrote on Tue Aug 22 10:57:20+0200 2017:

More precisely, several updaters rely on FTP (gnu, kernel.org, kde,
etc. see (guix gnu-maintenance)), but others rely on structured data
retrieved over HTTP(S) (pypi, cran, elpa, etc.)


Ludovic Courtès wrote on Sun Sep 03 23:40:18+0200 2017:

This one is nice and smaller than ‘ls-lR’.  I reimplemented the GNU
updater in terms of this file, and kept the previous FTP-based updater
around for GNU packages not hosted on ftp.gnu.org:


Ludovic Courtès wrote on Tue Sep 26 00:39:54+0200 2017:

Commit c1d8b3b3b5af8282328b87dd7a8d09357cbb0af7 rewrites the GNOME
updater in terms of the ‘cache.json’ files that can be found in each
package directory at .


Ludovic Courtès wrote on Sat Nov 10 23:38:16+0100 2018:

Commit 5230dce154a8861d806fcd667f2d424def571ed6 rewrites the kernel.org
updater so that it’s based on an analysis of HTML directory listings
such as .


Hartmut Goebel wrote on Tue Sep 10 19:25:58+0200 2019:

For the records: KDE no longer relies on FTP access. It now fetches the
ls-lR.bz2 file list using HTTPS from download.kde.org, converts it into
a list of file paths and caches the list.


- Brice

bug#40945: [bug #40945] Rottlog service should create filenames with a '.gz' extension

[Brice Waegeneire]

Hello Leo,

In /etc/rottlog/rc the line “extension="gz"” has for only effect to 
expand
the meta-variable “@COMP_EXT”[0] which isn't used by default. For it to 
be

appended to every rotated log file we need to add the line “storefile
@FILENAME.@COMP_EXT” to /etc/rottlog/weekly, which specify the filename 
for

the rotated log file[1][2]. At least that's what I understand after
skimming through the documentation, I have send a patch[3] but it's
untested.

[0]: 
https://www.gnu.org/software/rottlog/manual/rottlog.html#Mandatory-RC-Variables
[1]: 
https://www.gnu.org/software/rottlog/manual/rottlog.html#Use-of-meta_002dvariables
[2]: 
https://www.gnu.org/software/rottlog/manual/rottlog.html#Configuration-parameters

[3]: https://issues.guix.info/issue/40953

Cheers,
- Brice

bug#25484: Closing #25484?

[Brice Waegeneire]

Hello Guix,

I think this 3 year old bug is fixed, even though Ricardo's patch wasn't
applied. I can't find any “may conflict with “ in the build log of a 
recent

build of qemu[0] and qemu now depends on 'libjpeg-turbo' instead of
'libjpeg' since 513885b54e5a6abd46cb02b04ebab51b879150c0.

Should we close this issue?

[0]: http://ci.guix.gnu.org/build/2599861/details

- Brice

bug#23984: Closing “Bug avr-toolchain”?

[Brice Waegeneire]

Hello Guix,

Like Ricardo I can't reproduce this 4 years old bug:
--8<---cut here---start->8---
$ guix environment --pure --ad-hoc microscheme avr-toolchain -- \
microscheme -m UNO -a examples/blink-led-morse.ms
Microscheme 0.9.3, (C) Ryan Suchocki
Treeshaker: After 4 rounds: 88 globals purged! 32 bytes will be 
reserved.

114 lines compiled OK
Assembling...
Finished.

--8<---cut here---end--->8---

We should close it.

- Brice

bug#40377: guix build --with-commit is broken

[Brice Waegeneire]

Hello Ludovic,

On 2020-04-02 21:17, Ludovic Courtès wrote:

Fixed with commit efa578ecaece67366b4b0e2266de7c2faaa4ae54.


Thank you for that really quick patch. It seems to be working
well now.

- Brice

bug#40377: guix build --with-commit is broken

[Brice Waegeneire]

Hello,

`--with-commit' from `guix build' doesn't always work. It seems to not
really update the checkout contrary to what is reported since changing 
the
`git-url`, by adding a slash for example, put it back on track. It makes 
it

useless when trying out to build a newly released version. Following are
some examples:

$ guix build mlt
/gnu/store/m6y21nnyg6p0kcxbfj7k1dnbwbsbj006-mlt-6.18.0
$ guix build mlt --with-commit=mlt=v6.18.0
updating checkout of 'https://github.com/mltframework/mlt.git'...
guix build: error: Git failure while fetching 
https://github.com/mltframework/mlt.git: the requested type does not 
match the type in the ODB
$ guix build mlt --with-commit=mlt=v6.18.0 
--with-git-url=mlt=https://github.com/mltframework/mlt.git/

updating checkout of 'https://github.com/mltframework/mlt.git/'...
retrieved commit 46a226217d8ec5bbf66a4fa3da138fd6924dd13b
The following derivations will be built:
   /gnu/store/ljlj1dwkdfb7sziy02hi5scskdjmxv02-mlt-6.18.0.drv
   /gnu/store/02q25aq6mi8287hbakc9v7z0jmq9f6cz-sdl-1.2.15.drv
   /gnu/store/5z3v3w5aslbcsq0ia429n0pkshv6f14x-frei0r-plugins-1.7.
[...]

$ guix build picom --with-commit=picom=v7.5
updating checkout of 'https://github.com/yshui/picom.git'...
retrieved commit 3838f053afb1aa05ba1ab489f2dfaa44c00c9ef0
/gnu/store/q1bl4q1x4wmyps5ibljvj4x3y2nl24la-picom-7.5
$ guix build picom --with-commit=picom=vNext
updating checkout of 'https://github.com/yshui/picom.git'...
guix build: error: Git failure while fetching 
https://github.com/yshui/picom.git: the requested type does not match 
the type in the ODB


I've found out about this issue by reading pelzflorian's suggestion 
about
adding a `--with-version' in [0] and [1], he wrote that a year ago, 
before

support for tags was added to `--with-commit'.

[0]: https://issues.guix.info/issue/35744
[1]: https://lists.gnu.org/archive/html/help-guix/2019-05/msg00093.html

- Brice

bug#40142: (guix cve) discards configuration "vendor", leading to false positives

[Brice Waegeneire]

Hello,

I have thought of a way to improve on those false positives. And I have
submitted a patch to solve the stderr situation at
https://issues.guix.info/issue/40367.


Probably the fix would be to preserve the vendor part in the API and to
somehow use it meaningfully


It looks like, for most free software the name of the software is used 
as
 the vendor too, but I'm guessing that's not always the case in 
particular

 when two project are using the same name. So we can't just filter the
 entries where the vendor name isn't the name of the package or we could
 end up with false negatives which seems worse than false positive for a
 vulnerability checker.

One solution would be to display the name of the vendor when it doesn't
correspond to the name of the package. Such solution would still output
false positives but at least it will be quicker to identify then as 
such,

compared to looking up and reading trough each CVE.

- Brice

bug#36698: shepherd: list-actions not implemented

[Brice Waegeneire]

I am curious about what actions are implemented in the system services
on my GuixSD install. I try something like the following for the
different system services and get an error:

jesse@piranhaplant ~$ sudo herd list-actions term-tty6
Password:
herd: service 'term-tty6' does not have an action 'list-actions'


The documentation has been updated in 
d5da712a5605a0cdaa4cf3bd64621a95a54520c0
to clarify the use of 'list-actions' and there is an example on how to 
use it.


# herd doc term-tty6 list-actions
term-tty6 ()
# herd doc root list-actions
root (help status halt power-off load eval unload reload daemonize 
persistency no-persistency cd restart)


This bug should be closed.

bug#40272: linux-module-build-system don't support an inferior package as a kernel

[Brice Waegeneire]

Message Body
Hello,

The linux-module-build-system crash when using an inferior package as 
the

kernel. I have first reported the issue in the second part of[0] and
latter, reading[1] made me realize that the root cause was in `(guix
`build-system linux-module)' and not directly related to the
`kernel-loadable-modules' field.

I tried fixing it myself but (guix inferior) seems to be missing some
important procedures so I can manage to do it by myself - I don't have 
the

skills to modify that part of the code base. A way to make a package by
inheriting from a inferior-package would greatly help because
`make-linux-module-builder' assume that it's argument is straight 
forward

package.

Following is the file `linux-module-inferior.scm' to reproduce the 
error:


--8<---cut here---start->8---
(use-modules (gnu)
 (gnu system)
 (srfi srfi-1)
 (guix inferior)
 (guix utils)
 (guix packages)
 (guix channels))
(use-package-modules linux)

(define channels
  (list (channel
 (name 'guix)
 (url "https://git.savannah.gnu.org/git/guix.git;)
 (commit
  "591faabd8c93bfb6879910d8a424f0db835066c2"

(define my-linux
  (let ((inferior (inferior-for-channels channels)))
(first (lookup-inferior-packages inferior "linux-libre" 
"4.4.217"


(package/inherit ddcci-driver-linux
   (arguments
(ensure-keyword-arguments
 (package-arguments ddcci-driver-linux)
 ;; `(#:linux ,(specification->package 
"linux-libre@4.4.217")) ; NOTE It works

 `(#:linux ,my-linux) ; NOTE It doesn't work
 )))
--8<---cut here---end--->8---

Here is the error:

--8<---cut here---start->8---
LANGUAGE=C guix build  -f linux-module-inferior.scm
Updating channel 'guix' from Git repository at 
'https://git.savannah.gnu.org/git/guix.git'...

Backtrace:
   1 (primitive-load "/home/bricewge/.config/guix/current/bi…")
In guix/ui.scm:
  1894:12  0 (run-guix-command _ . _)
--8<---cut here---end--->8---

[0]: https://lists.gnu.org/archive/html/guix-devel/2020-03/msg00381.html
[1]: https://issues.guix.info/issue/33719

Brice.

bug#40184: Add support for leds to keyboard-layout

[Brice Waegeneire]

Hello,

The keyboard configuration mechanism through `keyboard-layout' is really
nice in Guix: setting it once and using it in different components. 
Having

the same ability but to set the default state of keyboard leds would be
even better. That is avoiding to use setleds(1) and/or xset(1) to have
CapsLock, NumLock and ScrollLock enable or disable at startup.

Brice.

bug#36380: service urandom-seed takes too long on boot

[Brice Waegeneire]

Hello,

It would be nice if we could reproduce this issue.

Robert Vollmert  writes:

Just ran across this article about Debian dealing with similar issues.

https://daniel-lange.com/archives/152-hello-buster.html


This article has been updated since then with a section[0] about a fix
authored by Linus[1][2] and merged in Linux 5.4. The gist of it that now
`getrandom()' will actively try to collect entropy in early boot, if it
is missing, by using the CPU jitter. The Debian wiki is saying the 
same[3].


Since we are using actually using Linux-libre 5.4 as the default kernel
this issue should probably be closed.

[0]: 
https://daniel-lange.com/archives/152-hello-buster.html#linustotherescue
[1]: 
https://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git/commit/?id=3f2dc2798b81531fd93a3b9b7c39da47ec689e55
[2]: 
https://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git/commit/?id=50ee7529ec4500c88f8664560770a7a1b65db72b

[3]: https://wiki.debian.org/BoottimeEntropyStarvation

Brice.

bug#26752: Ansible & others' problems with wrapped '.ansible-real' scripts

[Brice Waegeneire]

Hello,

Arun Isaac  writes:

FWIW, I fixed our ansible package in
https://issues.guix.info/issue/33777 . This is not a general solution,
but at least our ansible package works at the moment.


If this bug is about ansible malfunctioning then it should be closed,
Arun fixed it in 01cb4d47570c38812492bbc331b7b818e1b69fbb. I've tested
it myself successfully with the command from the IRC report[0] (linked
in the merged issue[2]).
On the other hand If it's about fixing it with the new wrap-script from
Ricardo I can send a patch, but the derivation will need guile as a new
input.

[0]: http://logs.guix.gnu.org/guix/2018-04-28.log#013741
[1]: https://issues.guix.info/issue/31299

Brice.

bug#40142: CVE checker return false positives

[Brice Waegeneire]

Hello,

On 2020-03-21 16:25, Ludovic Courtès wrote:

Probably the fix would be to preserve the vendor part in the API and to
somehow use it meaningfully.

Ideas & patches welcome!


I'll see what I can write a patch to fix it then.


Also note the missing / on the first line and it output on `stderr'
instead of `stdout'.


What do you mean?


I misunderstood the meaning of “gnu/packages/version-control.scm:149:2:”
and thought there was a missing / before “gnu/”; this is irrelevant. 
About
the output stream of “guix lint” I think it should output to `stdout', 
not

`stderr' as it's currently the case.

Brice.

bug#34276: ‘guix system disk-im age’ successfully builds a bad image

[Brice Waegeneire]

Hello Ludo,

On 2020-03-21 15:58, Ludovic Courtès wrote:

Any idea how to implement it?  Is QMP a request/reply kind of interface
like the monitor?


Not really or I would have sent a patch instead.

QMP is similar to the the monitor in the sense that you can send a 
command and

receive a reply but it give us access to more features; in our case
asynchronous events. To get notified by the pvpanic device that a panic 
occured

on the guest it is needed to do the following:
1. Connect to the socket
2. Receive the server greetings
3. Respond with the capabilites request
4. Receive the capabilites respond
5. Listen on GUEST_PANICKED events

The QMP specifications are available here[0].

[0]: 
https://git.qemu.org/?p=qemu.git;a=blob_plain;f=docs/interop/qmp-spec.txt;hb=HEAD


Brice.

bug#27003: [PATCH 0/3] Generalized wrap phase for perl, python.

[Brice Waegeneire]

Hello,

l...@gnu.org (Ludovic Courtès) writes:

BTW, there’s also this patch series on this topic:

  https://issues.guix.info/issue/27003

What to do?


A `wrap-script' procedure has been merged as of 
0fb9a8df429a7b9f40610ff15baaff0d8e31e8cf
thanks to Ricardo's patch from https://issues.guix.info/issue/27003, it 
seems to
provide similar functionality as the `program-wrapper' suggested here. 
Should we close

this issue?

Brice.

bug#40144: --rounds has no effect when used in conjunction with --check

[Brice Waegeneire]

Hello,

Since this bug is already known[0] this report is just to keep of it.

“guix --check --rounds=3 hello” only build the package once instead of
three time.

[0]: http://logs.guix.gnu.org/guix/2020-03-18.log#213921

Brice.

bug#23811: shepherd: tests/respawn-throttling.sh fails sporadically

[Brice Waegeneire]

Hello,

#23811 (merged with #28588) are about the same tests failing as
the recently closed #30299 and were reported 4 et 3 years.
I suggest to close then too.

Brice.

bug#40142: CVE checker return false positives

[Brice Waegeneire]

Hello,

The CVE checker of “guix lint” returns false positives:
┌
│ LANGUAGE=C guix lint git 2>&1
├───
│ gnu/packages/version-control.scm:149:2: git@2.25.1: probably 
vulnerable to CVE-2020-2136, CVE-2019-1003010, CVE-2018-1000110, 
CVE-2018-1000182
│ 
/gnu/store/8q0nfd6vnc6lnjh13rwl7fyimwlv7fml-guix-module-union/share/guile/site/3.0/gnu/packages/version-control.scm:153:12: 
git@2.25.1: can be upgraded to 2.25.2
│ 
/gnu/store/8q0nfd6vnc6lnjh13rwl7fyimwlv7fml-guix-module-union/share/guile/site/3.0/gnu/packages/version-control.scm:154:11: 
git@2.25.1: source not archived on Software Heritage

└


• [CVE-2020-2136]: “Jenkins Git Plugin 4.2.0 and earlier […]”
• [CVE-2019-1003010]: “[…] Jenkins Git Plugin 3.9.1 and earlier […]”
• [CVE-2018-1000110]: “[…] Jenkins Git Plugin version 3.7.0 and earlier
  […]”
• [CVE-2018-1000182]: “[…] Jenkins Git Plugin 3.9.0 and older […]”

Also note the missing / on the first line and it output on `stderr'
instead of `stdout'.

[CVE-2020-2136] 

[CVE-2019-1003010] 

[CVE-2018-1000110] 

[CVE-2018-1000182] 

Brice.

bug#34276: ‘guix system disk-im age’ successfully builds a bad image

[Brice Waegeneire]

Hello Ludovic,

I investigated a bit.  I managed to get our code to cause a kernel 
panic

upon failure (patch below).  However I fail to turn that guest kernel
panic into a different QEMU exit code.

I tried to use the “pvpanic” paravirtualized device (the ‘pvpanic.ko’
module in the guest, and “-device pvpanic” on the QEMU command line),
but unfortunately that thing is almost undocumented and I can’t get it
to turn the panic into a non-zero exit code, nor do I know if it’s
possible.

Thoughts anyone?


I looked a little into it and I have found how to use pvpanic.
Unfortunately it's not as straight forward as getting a non-zero exit
code form qemu. When pvpanic is loaded in a VṂ, as you did with 
“-device

pvpanic”, generate events[0] on the QMP interface when a crash happen
and qemu either shutdown or pause when using --no-shutdown[1].

(gnu build marionette) which use the “-monitor” interface could be
recycled to use “-qmp” a machine interface using JSON.

Following is log of a QMP session where the guest panicked[2]:
--8<---cut here---start->8---
{
"QMP": {
"version": {
"qemu": {
"micro": 0,
"minor": 2,
"major": 4
},
"package": ""
},
"capabilities": [
"oob"
]
}
}
{ "execute": "qmp_capabilities" }
{
"return": {
}
}
{
"timestamp": {
"seconds": 1584645026,
"microseconds": 936550
},
"event": "GUEST_PANICKED",
"data": {
"action": "pause"
}
}
{
"timestamp": {
"seconds": 1584645026,
"microseconds": 936675
},
"event": "GUEST_PANICKED",
"data": {
"action": "poweroff"
}
}
{
"timestamp": {
"seconds": 1584645026,
"microseconds": 936776
},
"event": "SHUTDOWN",
"data": {
"guest": true,
"reason": "guest-panic"
}
}
--8<---cut here---end--->8---


[0]: 
https://github.com/qemu/qemu/blob/9ced5c7c20cb16dff0c2fa3242c3ee96b68cec2a/qapi/run-state.json#L339-L355
[1]: 
https://github.com/qemu/qemu/blob/4dd6517e369828171290b65e11f6a45aeeed15af/softmmu/vl.c#L1423-L1427
[2]: 
https://git.qemu.org/?p=qemu.git;a=blob_plain;f=docs/interop/qmp-intro.txt;hb=HEAD


Brice.

bug#36634: (no subject)

[Brice Waegeneire]

Hello,


Chris Marusich  writes:

I see the patch was incorporated into Guix master in commit
aa1f0896fb15a0bdcc5474839c8afdbb2520d603.  That is good, and I think
this issue can be resolved.  If nobody follows up in a few days' time,
let's close the bug report.


I created 38032 on guix-patches and Ludo’ applied them.


Looks like this issue can be closed.
I can't reproduce the bug. Upstream fixed it in libvirt 5.10, so
we'll be able to remove Miguel's patch when we upgrade libvrit.

Brice.

bug#30299: [core-updates] shepherd fails tests on all systems except x86_64

[Brice Waegeneire]

Hello,

Does this bug is still relevant?
It was reported on core-updates 2 years ago with shepherd 0.3.2.
I can't see any CI failures[0] related to a test failing since cuirass 
was setup, the only time the build of shepherd failed[1] it wasn't due 
to a test.
I wasn't able to reproduce the failing test with some building rounds on 
armhf and i686.



I changed the severity to "serious", since this bug prevents installing
GuixSD on arm, or creating an installation image. Also, it is now 
present

on master instead of core-updates.


As far as I know this isn't the case anymore, so at least the priority 
should be lowered.


[0]: http://ci.guix.gnu.org/search?query=shepherd
[1]: http://ci.guix.gnu.org/build/1312246/details

Brice.

bug#38524: [PATCH v2] services: dhcp-client: Ignore interfaces that need non-free firmware.

[Brice Waegeneire]

Fixes bug #38524 (see: https://bugs.gnu.org/38524).

* gnu/services/networking.scm (dhcp-client-service-type): Filter interfaces
that need non-free firmware.
---
This patch version contains a link to the issue as Brett asked.

 gnu/services/networking.scm | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index 93d9b6a15e..7a57e33974 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -223,14 +223,14 @@ fe80::1%lo0 apps.facebook.com\n")
  (define valid?
(lambda (interface)
  (and (arp-network-interface? interface)
-  (not (loopback-network-interface? interface)
+  (not (loopback-network-interface? interface))
+  ;; XXX: Make sure the interfaces are up so that
+  ;; 'dhclient' can actually send/receive over them.
+  (false-if-exception
+   (set-network-interface-up interface)
  (define ifaces
(filter valid? (all-network-interface-names)))
 
- ;; XXX: Make sure the interfaces are up so that 'dhclient' can
- ;; actually send/receive over them.
- (for-each set-network-interface-up ifaces)
-
  (false-if-exception (delete-file #$pid-file))
  (let ((pid (fork+exec-command
  (cons* #$dhclient "-nw"
-- 
2.19.2

bug#38524: [PATCH] services: dhcp-client: Ignore interfaces that need non-free

[Brice Waegeneire]

This patch allow dhcp-client-service to start even when an interface that
require non free-software is present; such device will be skipped.

bug#38524: [PATCH] services: dhcp-client: Ignore interfaces that need non-free firmware.

[Brice Waegeneire]

* gnu/services/networking.scm (dhcp-client-service-type): Filter interfaces
that need non-free firmware.
---
 gnu/services/networking.scm | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index 93d9b6a15e..7a57e33974 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -223,14 +223,14 @@ fe80::1%lo0 apps.facebook.com\n")
  (define valid?
(lambda (interface)
  (and (arp-network-interface? interface)
-  (not (loopback-network-interface? interface)
+  (not (loopback-network-interface? interface))
+  ;; XXX: Make sure the interfaces are up so that
+  ;; 'dhclient' can actually send/receive over them.
+  (false-if-exception
+   (set-network-interface-up interface)
  (define ifaces
(filter valid? (all-network-interface-names)))
 
- ;; XXX: Make sure the interfaces are up so that 'dhclient' can
- ;; actually send/receive over them.
- (for-each set-network-interface-up ifaces)
-
  (false-if-exception (delete-file #$pid-file))
  (let ((pid (fork+exec-command
  (cons* #$dhclient "-nw"
-- 
2.19.2

bug#33639: Fixing the GPT errors from an installer on a USB stick

[Brice Waegeneire]

I have the same issue as pelzflorian about the GPT errors.

To fix the  GPT mismatch you just need to execute the following command,
where device is something like "/dev/sdc":
sudo fdisk "$device" <

bug#38447: Instructions to reproduce the issue

[Brice Waegeneire]

I had the same issue on a Hystou P04 and managed to reproduce it several 
times.

Attached to this email is the dump of the installer.

Start the installation process but try to make it fail,
for example by removing the EFI partition during the guided partition,
and when the "Installation failed" menu appear choose "Retrysystem 
install",

on the right. Then restart the installation process with the
same choices and the installer will crash after selecting the keyboard 
layout

variant.

Some time, if you wait for a few minutes before retrying the 
installation, the
crash won't be triggered but then the disk you partitioned during the 
first
installation process won't be available anymore in the disk selection 
menu.


The choices I entered in the installation wizard was:
1. English
2. United States
3. Graphical install
4. Europe
5. Paris
6. English (US)
7. English (intl., with AltGr dead keys)
In ice-9/eval.scm:
619:8 19 (_ #(#(# #< name: newt 
init: # exit: # exit-error: # final-…>) #))
In ice-9/boot-9.scm:
829:9 18 (catch #t # 
# _)
In ice-9/eval.scm:
619:8 17 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# fi…> …)) …))
   626:19 16 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# fi…> …)) …))
In ./gnu/installer/steps.scm:
189:6 15 (run-installer-steps #:steps _ #:rewind-strategy _ #:menu-proc _)
In ice-9/boot-9.scm:
829:9 14 (catch srfi-34 # # _)
829:9 13 (catch srfi-34 # # _)
829:9 12 (catch srfi-34 # # _)
829:9 11 (catch srfi-34 # # _)
In ./gnu/installer/steps.scm:
   182:21 10 (_)
In ice-9/eval.scm:
619:8  9 (_ #(#(#(#) #< name: 
newt init: # exit: # exit-error: 
# fin…>) #))
In ./gnu/installer/keymap.scm:
163:7  8 (_ _)
In unknown file:
   7 (scm-error misc-error #f "~A" ("Unable to locate keymap update 
file") #f)
In ice-9/boot-9.scm:
   751:25  6 (dispatch-exception 4 misc-error (#f "~A" ("Unable to locate 
keymap update file") #f))
In ice-9/eval.scm:
619:8  5 (_ #(#(# #< name: newt 
init: # exit: # exit-error: # final-…>) …))
619:8  4 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# f…>) …) #))
In ice-9/ports.scm:
   462:17  3 (call-with-output-file _ _ #:binary _ #:encoding _)
In ice-9/eval.scm:
619:8  2 (_ #(#(# misc-error (#f "~A" 
("Unable to locate keymap update file") #f)) #))
159:9  1 (_ #(#(# misc-error (#f "~A" 
("Unable to locate keymap update file") #f)) #))
In unknown file:
   0 (make-stack #t)
ice-9/eval.scm:159:9: Unable to locate keymap update file

bug#38524: 'dhcp-client-service' crash when non-libre networking interface is present

[Brice Waegeneire]

On 2019-12-10 18:11, Ludovic Courtès wrote:

So here the problem is that Linux-libre fails to load the non-free
firmware.  Could you bring it up on the Linux-libre development mailing
list?

Doing some research on how linux-libre behave it seems normal that it
doesn't allow the loading of non-free firmware. So I think the issue is
on the Guix side; in dhcp-client-service stopping on an error and not
continuing to try other interface. If you don't think so what should I
bring up to the linux-libre mailing list?

bug#38562: the installer crash when pressing shift+f2 or f12

[Brice Waegeneire]

Using the installer guix-system-install-1.0.1.x86_64-linux.iso it crash 
at least on the first page, the language selection one, when pressing 
shift+f2 or f12. The dumps are attached.In ice-9/eval.scm:
619:8 19 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# fi…> …)) …))
   626:19 18 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# fi…> …)) …))
In ./gnu/installer/steps.scm:
189:6 17 (run-installer-steps #:steps _ #:rewind-strategy _ #:menu-proc _)
In ice-9/boot-9.scm:
829:9 16 (catch srfi-34 # # _)
In ./gnu/installer/steps.scm:
   182:21 15 (_)
In ice-9/eval.scm:
   293:34 14 (_ #(#(#) #< name: newt 
init: # exit: # exit-error: # final-pa…>))
In ./gnu/installer/newt/locale.scm:
225:3 13 (run-locale-page #:supported-locales _ #:iso639-languages _ 
#:iso3166-territories _)
In ./gnu/installer/steps.scm:
189:6 12 (run-installer-steps #:steps _ #:rewind-strategy _ #:menu-proc _)
In ice-9/boot-9.scm:
829:9 11 (catch srfi-34 # # _)
In ./gnu/installer/steps.scm:
   182:21 10 (_)
In ./gnu/installer/newt/locale.scm:
 52:2  9 (run-language-page _ _)
In ice-9/boot-9.scm:
  1583:14  8 (setenv _ _)
In unknown file:
   7 (string-append "LANGUAGE" "=" #t)
In ice-9/boot-9.scm:
   751:25  6 (dispatch-exception 2 wrong-type-arg ("string-append" "Wrong type 
(expecting ~A): ~S" ("string" #t) (#t)))
In ice-9/eval.scm:
619:8  5 (_ #(#(# #< name: newt 
init: # exit: # exit-error: # final-…>) …))
619:8  4 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# f…>) …) #))
In ice-9/ports.scm:
   462:17  3 (call-with-output-file _ _ #:binary _ #:encoding _)
In ice-9/eval.scm:
619:8  2 (_ #(#(# wrong-type-arg 
("string-append" "Wrong type (expecting ~A): ~S" ("string" #t) (#t))) #))
159:9  1 (_ #(#(# wrong-type-arg 
("string-append" "Wrong type (expecting ~A): ~S" ("string" #t) (#t))) #))
In unknown file:
   0 (make-stack #t)
ice-9/eval.scm:159:9: In procedure string-append: Wrong type (expecting 
string): #t
In ice-9/eval.scm:
619:8 19 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# fi…> …)) …))
   626:19 18 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# fi…> …)) …))
In ./gnu/installer/steps.scm:
189:6 17 (run-installer-steps #:steps _ #:rewind-strategy _ #:menu-proc _)
In ice-9/boot-9.scm:
829:9 16 (catch srfi-34 # # _)
In ./gnu/installer/steps.scm:
   182:21 15 (_)
In ice-9/eval.scm:
   293:34 14 (_ #(#(#) #< name: newt 
init: # exit: # exit-error: # final-pa…>))
In ./gnu/installer/newt/locale.scm:
225:3 13 (run-locale-page #:supported-locales _ #:iso639-languages _ 
#:iso3166-territories _)
In ./gnu/installer/steps.scm:
189:6 12 (run-installer-steps #:steps _ #:rewind-strategy _ #:menu-proc _)
In ice-9/boot-9.scm:
829:9 11 (catch srfi-34 # # _)
In ./gnu/installer/steps.scm:
   182:21 10 (_)
In ./gnu/installer/newt/locale.scm:
 52:2  9 (run-language-page _ _)
In ice-9/boot-9.scm:
  1583:14  8 (setenv _ _)
In unknown file:
   7 (string-append "LANGUAGE" "=" #t)
In ice-9/boot-9.scm:
   751:25  6 (dispatch-exception 2 wrong-type-arg ("string-append" "Wrong type 
(expecting ~A): ~S" ("string" #t) (#t)))
In ice-9/eval.scm:
619:8  5 (_ #(#(# #< name: newt 
init: # exit: # exit-error: # final-…>) …))
619:8  4 (_ #(#(#(# #< name: 
newt init: # exit: # exit-error: 
# f…>) …) #))
In ice-9/ports.scm:
   462:17  3 (call-with-output-file _ _ #:binary _ #:encoding _)
In ice-9/eval.scm:
619:8  2 (_ #(#(# wrong-type-arg 
("string-append" "Wrong type (expecting ~A): ~S" ("string" #t) (#t))) #))
159:9  1 (_ #(#(# wrong-type-arg 
("string-append" "Wrong type (expecting ~A): ~S" ("string" #t) (#t))) #))
In unknown file:
   0 (make-stack #t)
ice-9/eval.scm:159:9: In procedure string-append: Wrong type (expecting 
string): #t

bug#38524: 'dhcp-client-service' crash when non-libre networking interface is present

[Brice Waegeneire]

The 'dhcp-client-service' fail to start when a non-libre network 
interface (here 148f:3070) is plugged-in even though there is an libre 
networking interface (here 01:00.0) available.
Removing the non-libre networking interface from the system allow 
'dhcp-client-service' to start correctly on the libre networking 
interface.


I think the service shouldn't crash when there is an non-libre network 
interface connected, it should just skip it and maybe throw an error 
message. Allowing to specify the network interfaces on which 
'dhcp-client-service' should run can also somewhat resolve the issue.



#+begin_src sh
$ sudo herd start networking
[ 2758.305139] 1-3:1.0: Missing Free firmware (non-Free firmware loading 
is disabled)
[ 2758.395791] ieee80211 phy0: rt2x00lib_request_firmware: Error - 
Failed to request Firmware

herd: exception caught while executing 'start' on service 'networking':
In procedure set-network-interface-flags: set-network-interface-flags on 
wlp0s20f0u3: No such file or directory


$ ip a s
1: lo:  mtu 65536 qdisc noqueue state UNKNOWN 
group default qlen 1000

link/loopback 00:00:00:00:00:00 brd 00:00:00:00:00:00
inet 127.0.0.1/8 scope host lo
   valid_lft forever preferred_lft forever
inet6 ::1/128 scope host
   valid_lft forever preferred_lft forever
2: enp1s0:  mtu 1500 qdisc pfifo_fast 
state DOWN group default qlen 1000

link/ether 00:e0:4c:68:67:77 brd ff:ff:ff:ff:ff:ff
3: wlp0s20f0u3:  mtu 1500 qdisc noop state DOWN 
group default qlen 1000

link/ether 00:c0:ca:77:05:e7 brd ff:ff:ff:ff:ff:ff

$ lsusb
Bus 002 Device 001: ID 1d6b:0003 Linux Foundation 3.0 root hub
Bus 001 Device 002: ID 148f:3070 Ralink Technology, Corp. RT2870/RT3070 
Wireless Adapter

Bus 001 Device 001: ID 1d6b:0002 Linux Foundation 2.0 root hub

$ lspci
00:00.0 Host bridge: Intel Corporation Xeon E3-1200 v6/7th Gen Core 
Processor Host Bridge/DRAM Registers (rev 02)
00:02.0 VGA compatible controller: Intel Corporation HD Graphics 620 
(rev 02)
00:08.0 System peripheral: Intel Corporation Xeon E3-1200 v5/v6 / 
E3-1500 v5 / 6th/7th Gen Core Processor Gaussian Mixture Model
00:14.0 USB controller: Intel Corporation Sunrise Point-LP USB 3.0 xHCI 
Controller (rev 21)
00:14.2 Signal processing controller: Intel Corporation Sunrise Point-LP 
Thermal subsystem (rev 21)
00:17.0 SATA controller: Intel Corporation Sunrise Point-LP SATA 
Controller [AHCI mode] (rev 21)
00:1c.0 PCI bridge: Intel Corporation Sunrise Point-LP PCI Express Root 
Port #3 (rev f1)
00:1e.0 Signal processing controller: Intel Corporation Sunrise Point-LP 
Serial IO UART Controller #0 (rev 21)

00:1e.4 SD Host controller: Intel Corporation Device 9d2b (rev 21)
00:1e.6 SD Host controller: Intel Corporation Sunrise Point-LP Secure 
Digital IO Controller (rev 21)
00:1f.0 ISA bridge: Intel Corporation Sunrise Point-LP LPC Controller 
(rev 21)
00:1f.2 Memory controller: Intel Corporation Sunrise Point-LP PMC (rev 
21)
00:1f.3 Audio device: Intel Corporation Sunrise Point-LP HD Audio (rev 
21)

00:1f.4 SMBus: Intel Corporation Sunrise Point-LP SMBus (rev 21)
01:00.0 Ethernet controller: Realtek Semiconductor Co., Ltd. 
RTL8111/8168/8411 PCI Express Gigabit Ethernet Controller (rev 07)

#+end_src

#+begin_src scheme
(services
(append
  (list (service openssh-service-type)
(service dhcp-client-service-type))
  %base-services)))
#+end_src