bug#48564: ‘channel-with-substitutes-available’ makes assumptions about job names

[Ludovic Courtès]

Hello!

I wanted to try something like this:

--8<---------------cut here---------------start------------->8---
(use-modules (guix ci))

(list (channel-with-substitutes-available
       %default-guix-channel
       "https://ci.guix.gnu.org";)
      (channel-with-substitutes-available
       (channel
        (name 'guix-hpc)
        (url "https://gitlab.inria.fr/guix-hpc/guix-hpc.git";))
       "https://guix.bordeaux.inria.fr";))
--8<---------------cut here---------------end--------------->8---

However, that doesn’t work because ‘channel-with-substitutes-available’
looks for a ‘guix.x86_64-linux’ job, which doesn’t exist on this Cuirass
instance.

Wouldn’t it be enough to look for the latest completed evaluation (of a
given jobset)?

Incidentally, it seems ‘complete?’ is always false:

--8<---------------cut here---------------start------------->8---
scheme@(guix ci)> (latest-evaluations "https://guix.bordeaux.inria.fr"; 10)
$16 = (#<<evaluation> id: 88628 spec: "guix-past" complete?: #f checkouts: 
(#<<checkout> commit: "065d2cd6ced96ddb38c15a46f798488f61660a33" channel: 
"guix">)> #<<evaluation> id: 88627 spec: "guix-hpc" complete?: #f checkouts: 
(#<<checkout> commit: "065d2cd6ced96ddb38c15a46f798488f61660a33" channel: 
"guix">)> #<<evaluation> id: 88584 spec: "guix-past" complete?: #f checkouts: 
(#<<checkout> commit: "fd5527407ff336c4af1c5511e19c0956720cd7aa" channel: 
"guix">)> #<<evaluation> id: 88583 spec: "guix-hpc" complete?: #f checkouts: 
(#<<checkout> commit: "fd5527407ff336c4af1c5511e19c0956720cd7aa" channel: 
"guix">)> #<<evaluation> id: 88470 spec: "guix-past" complete?: #f checkouts: 
(#<<checkout> commit: "2710df38b0c317bdc69c61c7775d8141eb214dd1" channel: 
"guix">)> #<<evaluation> id: 88469 spec: "guix-hpc" complete?: #f checkouts: 
(#<<checkout> commit: "2710df38b0c317bdc69c61c7775d8141eb214dd1" channel: 
"guix">)> #<<evaluation> id: 88442 spec: "guix-past" complete?: #f checkouts: 
(#<<checkout> commit: "83d21785a9fbc6a7e87435d437b2b3917f3a3b09" channel: 
"guix">)> #<<evaluation> id: 88441 spec: "guix-hpc" complete?: #f checkouts: 
(#<<checkout> commit: "83d21785a9fbc6a7e87435d437b2b3917f3a3b09" channel: 
"guix">)> #<<evaluation> id: 88186 spec: "guix-past" complete?: #f checkouts: 
(#<<checkout> commit: "061823da03add693df9c411fee9ccdcc7291f0ec" channel: 
"guix">)> #<<evaluation> id: 88185 spec: "guix-hpc" complete?: #f checkouts: 
(#<<checkout> commit: "061823da03add693df9c411fee9ccdcc7291f0ec" channel: 
"guix">)>)
--8<---------------cut here---------------end--------------->8---

Thoughts?

Ludo’.