bug#28265: guix system build fails

[Efraim Flashner <efraim@flashner.co.il>]

[-- Attachment #1.1: Type: text/plain, Size: 1349 bytes --]

efraim@macbook42:~/workspace/guix$ time nice ./pre-inst-env guix system build ~/lightweight-desktop.scm
Backtrace:
          11 (primitive-load "/home/efraim/workspace/guix/scripts/gu…")
In guix/ui.scm:
  1331:12 10 (run-guix-command _ . _)
In ice-9/boot-9.scm:
    837:9  9 (catch _ _ #<procedure 7f4e83aea8c0 at guix/ui.scm:448…> …)
    837:9  8 (catch _ _ #<procedure 7f4e83aea8d8 at guix/ui.scm:536…> …)
In guix/scripts/system.scm:
   1022:8  7 (_)
    905:6  6 (process-action _ _ _)
In guix/store.scm:
  1441:24  5 (run-with-store _ _ #:guile-for-build _ #:system _)
In guix/scripts/system.scm:
    637:2  4 (_ _)
In gnu/system.scm:
    884:4  3 (_ _)
In gnu/bootloader/grub.scm:
   343:29  2 (grub-configuration-file #<<bootloader-configuration> …> …)
   207:30  1 (eye-candy #<<bootloader-configuration> bootloader: #<…> …)
   149:22  0 (grub-background-image #<<bootloader-configuration> bo…> …)

gnu/bootloader/grub.scm:149:22: In procedure grub-background-image:
gnu/bootloader/grub.scm:149:22: In procedure struct_vtable: Wrong type argument in position 1 (expecting struct): 5

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

[-- Attachment #1.2: lightweight-desktop.scm --]
[-- Type: text/plain, Size: 2011 bytes --]

;; This is an operating system configuration template
;; for a "desktop" setup without full-blown desktop
;; environments.

(use-modules (gnu) (gnu system nss))
(use-service-modules desktop)
(use-package-modules bootloaders certs openbox suckless wm)

(operating-system
  (host-name "macbook11")
  (timezone "Asia/Jerusalem")
  (locale "en_US.utf8")

  ;; Use the UEFI variant of GRUB with the EFI System
  ;; Partition mounted on /boot/efi.
  (bootloader (bootloader-configuration
                (bootloader grub-efi-bootloader)
                (target "/boot/efi")))

  ;; Assume the target root file system is labelled "my-root".
  (file-systems (cons* (file-system
                         (device "my-root")
                         (title 'label)
                         (mount-point "/")
                         (type "ext4"))
                       (file-system
                         ;; Specify partition here since FAT
                         ;; labels are currently unsupported.
                         (device "/dev/sda1")
                         (mount-point "/boot/efi")
                         (type "vfat"))
                       %base-file-systems))

  (swap-devices '("/dev/sda2"))

  (users (cons (user-account
                (name "efraim")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/efraim"))
               %base-user-accounts))

  ;; Add a bunch of window managers; we can choose one at
  ;; the log-in screen with F1.
  (packages (cons* openbox i3-wm i3status dmenu   ;window managers
                   nss-certs                      ;for HTTPS access
                   %base-packages))

  ;; Use the "desktop" services, which include the X11
  ;; log-in service, networking with Wicd, and more.
  (services %desktop-services)

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss))

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]