bug#44370: Cuirass fails building (some) packages from a custom-packages input

[david larsson <david.larsson@selfhosted.xyz>]

Hi!

I am unable to build certain packages from a custom-packages input in my 
cuirass-specs below, and am triggering the below backtrace with below 
config. The packages that trigger the errors can successfully be 
installed otherwise by pointing to them with a guix channel. Failure 
happens when adding python-pydotplus, perl-ical-data packages etc from 
the custom-packages input to the subset list in #:proc-args.

The config is instantiated (after guix pull to 
commit=594b2a116ea4267d88a294dd05f8dbbb8ce7bcc0 but Im having the same 
error on current master too) by running: herd stop cuirass-web ; herd 
stop cuirass ; rm /var/lib/cuirass/cuirass.db* ; guix system reconfigure 
/home/user1/src/my-guixsd-config.sh/VM-configs/bare-bones2.scm ;  herd 
start cuirass ; sleep 1 ; herd restart cuirass-web


================================
BACKTRACE
================================

Backtrace:
In ice-9/boot-9.scm:
   1736:10 15 (with-exception-handler _ _ #:unwind? _ # _)
In unknown file:
           14 (apply-smob/0 #<thunk 7f168d1195c0>)
In ice-9/boot-9.scm:
...skipping...
Uncaught exception in fiber ##f:
In cuirass/base.scm:
    793:13  3 (_)
In ice-9/boot-9.scm:
   1736:10  2 (with-exception-handler _ _ #:unwind? _ # _)
   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. &evaluation-error:
       name: "my-pkgs"
       id:


================================
CONFIG:
================================


(use-modules (gnu) (gnu system nss))
;; additions: spice, cuirass, virtualization (qemu-binfmt-service-type)
(use-service-modules networking ssh desktop spice cuirass 
virtualization)
;; additions: bash
(use-package-modules screen ssh gnome certs bash)

(define %my-special-files
   `(("/bin/sh" ,(file-append bash "/bin/sh"))
     ("/bin/bash" ,(file-append bash "/bin/bash"))
     ;; gitolite update hook needs it
     ;;    ("/usr/bin/perl" ,(file-append perl "/bin/perl"))
     ("/usr/bin/env" ,(file-append coreutils "/bin/env"))))

(define %cuirass-specs
   #~(
      list
   '((#:name . "my-pkgs")
     (#:load-path-inputs . ("guix"))
     (#:package-path-inputs . ("my-guix-packages"))
     (#:proc-input . "guix")
     (#:proc-file . "build-aux/cuirass/gnu-system.scm")
     (#:proc . cuirass-jobs)
     (#:proc-args .
      (;;(subset . manifests)
       ;;(subset . ("hello" "cowsay" "orgmk" "fwknop" "python-on-guile" 
"libxml2-xpath0" "guile-bash-parallel" "guile-base64")) ;; works!
       (subset . ("hello" "cowsay" "orgmk" "fwknop" "python-on-guile" 
"libxml2-xpath0" "guile-bash-parallel" "guile-base64" 
"python-pydotplus")) ;; fails with stacktrace
       (systems . ("x86_64-linux"))
       ;;(manifests . (("my-guix-packages" . "manifest.scm")))
       ))
     (#:inputs . (
                  ((#:name . "guix")
                   (#:url . "git://git.savannah.gnu.org/guix.git")
                   (#:load-path . ".")
                   ;;(#:branch . "master")

                   ;; d7 commit reports failed builds in 
/var/log/cuirass.log and cuirass-web reports them as scheduled, even 
when outputs in the store are successfully built
                   ;;(#:commit . 
"d7e033b9a153a9e60f52ff64f4eb355c1c3d0a6e")

                   ;; 594b commit works - success - until adding say 
perl-ical-data, python-pydotplus or bash-coding-utils.sh package from 
my-guix-packages
                   (#:commit . 
"594b2a116ea4267d88a294dd05f8dbbb8ce7bcc0")
                   (#:no-compile? . #t))

                  ((#:name . "my-guix-packages")
                   (#:url . 
"https://github.com/methuselah-0/my-guix-packages.git")
                   (#:load-path . "packages")
                   (#:branch . "master")
                   (#:no-compile? . #t))

                  ))
     (#:build-outputs . ()))

))

(operating-system
   (host-name "librem13v3guixsd")
   (timezone "Europe/Stockholm")
   (locale "en_US.utf8")

   ;; Boot in "legacy" BIOS mode, assuming /dev/sdX is the
   ;; target hard disk, and "my-root" is the label of the target
   ;; root file system.
   (bootloader (bootloader-configuration
                 (bootloader grub-bootloader)
                 (target "/dev/vda")))
   (file-systems (cons (file-system
                         (device (file-system-label "fsroot"))
                         (mount-point "/")
                         (type "ext4"))
                       %base-file-systems))

   ;; This is where user accounts are specified.  The "root"
   ;; account is implicit, and is initially created with the
   ;; empty password.
   (users (cons* (user-account
                  (name "user1")
                  (group "users")

                  ;; Adding the account to the "wheel" group
                  ;; makes it a sudoer.  Adding it to "audio"
                  ;; and "video" allows the user to play sound
                  ;; and access the webcam.
                  (supplementary-groups '("wheel"
                                          "audio" "video"))
                  (home-directory "/home/user1"))

                 (user-account
                  (name "cuirass")
                  (group "cuirass")
                  (supplementary-groups '("netdev"
                                          "audio" "video"))
                  (home-directory "/home/cuirass"))

                %base-user-accounts))

   ;; Globally-installed packages.
   ;; added nss-certs and le-certs globally for e.g. cuirass to be able 
to fetch stuff
   (packages (cons* screen openssh nss-certs le-certs %base-packages))

   ;; Add services to the baseline: a DHCP client and
   ;; an SSH server.
   (services (cons* (service gnome-desktop-service-type)
		   (service xfce-desktop-service-type)
                    (spice-vdagent-service)
                     ;; 
https://guix.gnu.org/manual/en/html_node/Submitting-Patches.html
                     (service qemu-binfmt-service-type
                              (qemu-binfmt-configuration
                               (platforms (lookup-qemu-platforms "arm" 
"aarch64"))
                               (guix-support? #t)))

                     (service openssh-service-type
                              (openssh-configuration
                               (permit-root-login #t)
                               ;;(allow-empty-passwords? #t)
                               (x11-forwarding? #t)
                               (port-number 2223)))
                     ;; 
https://lists.gnu.org/archive/html/help-guix/2017-08/msg00095.html
                     (simple-service 'store-my-config
                                     etc-service-type
                                     `(("config.scm"
                                        ,(local-file (assoc-ref
                                                      
(current-source-location)
                                                      'filename)))))
		    (service special-files-service-type %my-special-files)
                     ;; 
https://lists.gnu.org/archive/html/help-guix/2019-06/msg00116.html
                     (service cuirass-service-type
                              (cuirass-configuration
                               (interval 3600)
                               (fallback? #f) ;; default is #f
                               (host "0.0.0.0")
                               (port 8082)
                               (database "/var/lib/cuirass/cuirass.db") 
;; default is /var/lib/cuirass/cuirass.db
                               (use-substitutes? #t)
                               (specifications %cuirass-specs)))
                     %desktop-services))
   ;; Allow resolution of '.local' host names with mDNS.
   (name-service-switch %mdns-host-lookup-nss))


Best regards,
David