Cuirass changes

["Clément Lassieur" <clement@lassieur.org>]

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

Hi,

I'm currently working on Cuirass, so that it looks a bit more like
Hydra.  The changes include:

1. Adding support for multiple inputs.  Currently Cuirass only supports
one input per specification, which has to be the Guix git repository.
But one might want inputs for:
  - a repository containing the 'proc' that returns the jobs,
  - a repository containing extra packages (GUIX_PACKAGE_PATH).
Those inputs would be fetched at INTERVAL as well, and any change would
trigger an evaluation.  This is a follow-up of
https://lists.gnu.org/archive/html/guix-patches/2018-06/msg00311.html.

2. Removing the notion of 'project'.  Cuirass really has no project, and
what is called a 'project' is in fact a 'specification' (which Hydra
calls 'jobset').  And what is called a 'jobset' by Cuirass is in fact
the branch of the Guix input.  So the patch associates to the name
'jobset' what it really is: a specification.  A consequence is that the
'jobset' filtering of the API now filters by specification name, and it
is not possible anymore to filter by branch.  (But it was useless IMHO.)

3. Allowing any input to be in Guile's %load-path when 'proc' is called.
Usually, the only input that is in Guile's %load-path is Guix.  But
someone might want to use a custom library in 'proc'.  The alternative
is to just specify the Guix input that should be appended to Guile's
%load-path.

(I'm unsure about 3., I can't find any real use case.  That would just
make it more flexible I guess.)

Also, some specification fields (#:load-path-inputs,
#:package-path-inputs, #:proc-input) refer to the inputs by their name,
as Hydra does (with nixExprInput).  This makes it easy to do
configuration mistakes, and would ultimately require a configuration
syntax checker.  The only alternative I can think of involves
duplicating the inputs, which isn't good.

I'm sending this email because even though the patches are already done
and they work on my Cuirass instance, there are a few other things to do
before I can send them:
  - add a mechanism to update the database,
  - update the documentation.
So if you think I'm not on the right track, please let me know as soon
as possible :-)

I attached my configuration before those patches and the one after them,
so that you can see how the new configuration would look like.  The work
in progress is available at
https://git.lassieur.org/cgit/cuirass.git/log/.

Clément

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

(list
 '((#:name . "guix-modular-savannah")
   (#:url . "git://git.savannah.gnu.org/guix.git")
   (#:load-path . ".")
   (#:file . "build-aux/cuirass/guix-modular.scm")
   (#:no-compile? #t)
   (#:proc . cuirass-jobs)
   (#:arguments (systems "x86_64-linux"))
   (#:branch . "master"))
 '((#:name . "guix-modular-clem")
   (#:url . "git://git.lassieur.org/guix.git")
   (#:load-path . ".")
   (#:file . "build-aux/cuirass/guix-modular.scm")
   (#:no-compile? #t)
   (#:proc . cuirass-jobs)
   (#:arguments (systems "x86_64-linux"))
   (#:branch . "master"))
 '((#:name . "guix-manifest-savannah")
   (#:url . "git://git.savannah.gnu.org/guix.git")
   (#:load-path . ".")
   (#:file .
    #$(local-file
       "/home/clement/.clem/guix/cuirass-derivations.scm"))
   (#:no-compile? #t)
   (#:proc . drv-list)
   (#:arguments . ())
   (#:branch . "master"))
 '((#:name . "guix-manifest-clem")
   (#:url . "git://git.lassieur.org/guix.git")
   (#:load-path . ".")
   (#:file .
    #$(local-file
       "/home/clement/.clem/guix/cuirass-derivations.scm"))
   (#:no-compile? #t)
   (#:proc . drv-list)
   (#:arguments . ())
   (#:branch . "master")))

[-- Attachment #3: new.scm --]
[-- Type: application/octet-stream, Size: 2825 bytes --]

(list
 '((#:name . "guix-modular-savannah")
   (#:load-path-inputs . ("guix-modular"))
   (#:package-path-inputs . ())
   (#:proc-input . "guix-modular")
   (#:proc-path . "build-aux/cuirass/guix-modular.scm")
   (#:proc . cuirass-jobs)
   (#:proc-args (systems "x86_64-linux"))
   (#:inputs . (((#:name . "guix-modular") ;used by guix-modular.scm
                 (#:url . "git://git.savannah.gnu.org/guix.git")
                 (#:load-path . ".")
                 (#:branch . "master")
                 (#:no-compile? . #t)))))
 '((#:name . "guix-modular-clem")
   (#:load-path-inputs . ("guix-modular"))
   (#:package-path-inputs . ())
   (#:proc-input . "guix-modular")
   (#:proc-path . "build-aux/cuirass/guix-modular.scm")
   (#:proc . cuirass-jobs)
   (#:proc-args (systems "x86_64-linux"))
   (#:inputs . (((#:name . "guix-modular") ;used by guix-modular.scm
                 (#:url . "git://git.lassieur.org/guix.git")
                 (#:load-path . ".")
                 (#:branch . "master")
                 (#:no-compile? . #t)))))
 '((#:name . "guix-manifest-savannah")
   (#:load-path-inputs . ("guix"))
   (#:package-path-inputs . ("packages"))
   (#:proc-input . "conf")
   (#:proc-path . "guix/cuirass-derivations.scm")
   (#:proc . drv-list)
   (#:proc-args . ())
   (#:inputs . (((#:name . "guix")
                 (#:url . "git://git.savannah.gnu.org/guix.git")
                 (#:load-path . ".")
                 (#:branch . "master")
                 (#:no-compile? . #t))
                ((#:name . "conf")
                 (#:url . "git://git.lassieur.org/emacs.git")
                 (#:load-path . ".")
                 (#:branch . "master")
                 (#:no-compile? . #t))
                ((#:name . "packages")
                 (#:url . "git://git.lassieur.org/packages.git")
                 (#:load-path . ".")
                 (#:branch . "master")
                 (#:no-compile? . #t)))))
 '((#:name . "guix-manifest-clem")
   (#:load-path-inputs . ("guix-clem"))
   (#:package-path-inputs . ("packages"))
   (#:proc-input . "conf")
   (#:proc-path . "guix/cuirass-derivations.scm")
   (#:proc . drv-list)
   (#:proc-args . ())
   (#:inputs . (((#:name . "guix-clem")
                 (#:url . "git://git.lassieur.org/guix.git")
                 (#:load-path . ".")
                 (#:branch . "master")
                 (#:no-compile? . #t))
                ((#:name . "conf")
                 (#:url . "git://git.lassieur.org/emacs.git")
                 (#:load-path . ".")
                 (#:branch . "master")
                 (#:no-compile? . #t))
                ((#:name . "packages")
                 (#:url . "git://git.lassieur.org/packages.git")
                 (#:load-path . ".")
                 (#:branch . "master")
                 (#:no-compile? . #t))))))