diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-06-10 15:58:11 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-06-10 16:42:21 +0200 |
| commit | f44618fc79a730944cd3165a390d896777a8dad0 (patch) | |
| tree | d91e33ca38f80574589f6f895ef0855c42be0812 /examples | |
| parent | 78986d962352f3d5e092c441d5f6e0b1200de957 (diff) | |
| download | cuirass-f44618fc79a730944cd3165a390d896777a8dad0.tar cuirass-f44618fc79a730944cd3165a390d896777a8dad0.tar.gz | |
Add support for build products downloading.
* src/sql/upgrade-7.sql: New file.
* Makefile.am: Add it.
* src/cuirass/base.scm (create-build-outputs): New procedure,
(build-packages): call it,
(process-spec): add the new spec argument and pass it to create-build-outputs.
* src/cuirass/database.scm (db-add-build-product, db-get-build-product-path,
db-get-build-products): New exported procedures.
* src/cuirass/http.scm (respond-static-file): Move file sending to ...
(respond-file): ... this new procedure,
(url-handler): add a new "download/<id>" route, serving the requested file
with the new respond-file procedure. Also gather build products and pass them
to "build-details" for "build/<id>/details" route.
* src/cuirass/templates.scm (build-details): Honor the new "products" argument
to display all the build products associated to the given build.
* src/schema.sql (BuildProducts): New table,
(Specifications)[build_outputs]: new field.
* tests/database.scm: Add empty build-outputs spec.
* tests/http.scm: Ditto.
* examples/guix-jobs.scm: Ditto.
* examples/hello-git.scm: Ditto.
* examples/hello-singleton.scm: Ditto.
* examples/hello-subset.scm: Ditto.
* examples/random.scm: Ditto.
* doc/cuirass.texi (overview): Document it.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/guix-jobs.scm | 4 | ||||
| -rw-r--r-- | examples/hello-git.scm | 4 | ||||
| -rw-r--r-- | examples/hello-singleton.scm | 4 | ||||
| -rw-r--r-- | examples/hello-subset.scm | 4 | ||||
| -rw-r--r-- | examples/random.scm | 4 |
5 files changed, 15 insertions, 5 deletions
diff --git a/examples/guix-jobs.scm b/examples/guix-jobs.scm index 963c7ff..2f1f1a2 100644 --- a/examples/guix-jobs.scm +++ b/examples/guix-jobs.scm @@ -1,6 +1,7 @@ ;;; guix-jobs.scm -- job specification test for Guix ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of Cuirass. ;;; @@ -34,7 +35,8 @@ (#:url . "https://git.savannah.gnu.org/git/guix/guix-cuirass.git") (#:load-path . ".") (#:branch . "master") - (#:no-compile? . #t)))))) + (#:no-compile? . #t)))) + (#:build-outputs . ()))) (define guix-master (job-base #:branch "master")) diff --git a/examples/hello-git.scm b/examples/hello-git.scm index 6468452..c5e2ca2 100644 --- a/examples/hello-git.scm +++ b/examples/hello-git.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of Cuirass. ;;; @@ -43,4 +44,5 @@ (#:url . ,(string-append "file://" top-srcdir)) (#:load-path . ".") (#:branch . "master") - (#:no-compile? . #t))))))) + (#:no-compile? . #t)))) + (#:build-outputs . ())))) diff --git a/examples/hello-singleton.scm b/examples/hello-singleton.scm index a39191f..2d2d746 100644 --- a/examples/hello-singleton.scm +++ b/examples/hello-singleton.scm @@ -1,6 +1,7 @@ ;;; hello-singleton.scm -- job specification test for hello in master ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of Cuirass. ;;; @@ -34,6 +35,7 @@ (#:url . "https://git.savannah.gnu.org/git/guix/guix-cuirass.git") (#:load-path . ".") (#:branch . "master") - (#:no-compile? . #t)))))) + (#:no-compile? . #t)))) + (#:build-outputs . ()))) (list hello-master) diff --git a/examples/hello-subset.scm b/examples/hello-subset.scm index 8c0d990..e86668e 100644 --- a/examples/hello-subset.scm +++ b/examples/hello-subset.scm @@ -1,6 +1,7 @@ ;;; hello-subset.scm -- job specification test for hello subset ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of Cuirass. ;;; @@ -34,7 +35,8 @@ (#:url . "https://git.savannah.gnu.org/git/guix/guix-cuirass.git") (#:load-path . ".") (#:branch . "master") - (#:no-compile? . #t)))))) + (#:no-compile? . #t)))) + (#:build-outputs . ()))) (define guix-master (job-base #:branch "master")) diff --git a/examples/random.scm b/examples/random.scm index 37b97a2..f15e158 100644 --- a/examples/random.scm +++ b/examples/random.scm @@ -1,6 +1,7 @@ ;;; random.scm -- Job specification that creates random build jobs ;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of Cuirass. ;;; @@ -31,4 +32,5 @@ (#:url . ,(string-append "file://" top-srcdir)) (#:load-path . ".") (#:branch . "master") - (#:no-compile? . #t))))))) + (#:no-compile? . #t)))) + (#:build-outputs . ())))) |