diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2017-02-24 18:27:29 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2017-02-24 19:32:20 +0100 |
| commit | 24180197982af110892e41e30fa67559e79140e9 (patch) | |
| tree | d013ef7ae06edbf1ec01055e75225a33c74acf76 | |
| parent | aebad5184ddf75cb6e34331f4fd6325d0221b5a6 (diff) | |
| download | cuirass-24180197982af110892e41e30fa67559e79140e9.tar cuirass-24180197982af110892e41e30fa67559e79140e9.tar.gz | |
evaluate: Use specification #:name in evaluation alists.
This fixes an issue in the database, where rows from the 'Evaluations' table
were having an "#f" value instead of a valid reference to their corresponding
specification.
* bin/evaluate.in (main): Use specification #:name instead of obsolete #:id.
| -rw-r--r-- | bin/evaluate.in | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index 0508783..8875238 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -7,7 +7,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" !# ;;;; evaluate -- convert a specification to a job list ;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org> -;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> +;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of Cuirass. @@ -67,7 +67,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (thunks (proc store (assq-ref spec #:arguments))) (db (db-open)) (commit (assq-ref spec #:current-commit)) - (eval `((#:specification . ,(assq-ref spec #:id)) + (eval `((#:specification . ,(assq-ref spec #:name)) (#:revision . ,commit))) (eval-id (db-add-evaluation db eval))) (pretty-print |