Re: guix weather -m etc/sources-manifest.scm and CI?

[Mathieu Othacehe <othacehe@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 1846 bytes --]


Hey!

> Mathieu, could it have to do with the fact that the manifest is within
> the ‘guix’ channel?

Using the attached little reproducer, I get a more interesting
backtrace:

--8<---------------cut here---------------start------------->8---
Backtrace:
In ice-9/boot-9.scm:
  1752:10 11 (with-exception-handler _ _ #:unwind? _ # _)
In unknown file:
          10 (apply-smob/0 #<thunk 7f84f88adf60>)
In ice-9/boot-9.scm:
    724:2  9 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
    619:8  8 (_ #(#(#<directory (guile-user) 7f84f88a7c80>)))
In ice-9/boot-9.scm:
   2835:4  7 (save-module-excursion _)
  4380:12  6 (_)
In gnu/ci.scm:
    496:4  5 (cuirass-jobs _ _)
In srfi/srfi-1.scm:
   673:15  4 (append-map _ _ . _)
   586:17  3 (map1 (list "x86_64-linux"))
   586:17  2 (map1 (#<origin "https://www.brain-dump.org/projects…> …))
In gnu/ci.scm:
   575:38  1 (_ #<origin "https://www.brain-dump.org/projects/abduco…>)
In guix/packages.scm:
    441:0  0 (%package-name-procedure #<origin "https://www.brain-du…>)

guix/packages.scm:441:0: In procedure %package-name-procedure:
In procedure package-name: Wrong type argument: #<origin "https://www.brain-dump.org/projects/abduco/abduco-0.6.tar.gz" #<content-hash sha256:1x1m58ckwsprljgmdy93mvgjyg9x3cqrzdf3mysp0mx97zhhj2f9> () 7f84f252ec00>
--8<---------------cut here---------------end--------------->8---

The issue is that (gnu ci) expects manifests of packages and not
manifests of origins. Hence, the "job-name" procedure that calls
"package-name" on an origin fails.

We could maybe generalize the manifests->packages to support packages
and origins. The package-job procedure would also need some adjustment
to call origin->derivation instead of package-derivation.

WDYT?

Thanks,

Mathieu

[-- Attachment #2: cuirass.scm --]
[-- Type: application/octet-stream, Size: 443 bytes --]

(use-modules (gnu)
             (guix)
             (gnu ci))

(define s (open-connection))
(define args
  '((subset . (manifests "/etc/source-manifest.scm"))
    (systems . (list "x86_64-linux"))
    (channels
     (repository
      (version 0)
      (url "/gnu/store/22av86m87c4x574cc2070ijbd5mcbhz6-guix-source")
      (branch "master")
      (commit "0000000000000000000000000000000000000000")
      (name guix)))))

(cuirass-jobs s args)