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

[david larsson]

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