diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-27 19:19:26 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-30 23:07:19 +0200 |
| commit | ac4512897c6e08f26f87d9b7ddd9120436610513 (patch) | |
| tree | eb046f2216bdebd9130be902287ed099d21d9648 /bin/evaluate.in | |
| parent | ad267dc86aeea70b3e1e83914f808f21ce98118f (diff) | |
| download | cuirass-ac4512897c6e08f26f87d9b7ddd9120436610513.tar cuirass-ac4512897c6e08f26f87d9b7ddd9120436610513.tar.gz | |
schema: Evaluations: Add 'revision' column.
* src/schema.sql (Evaluations): Add 'revision' column.
* src/cuirass/database.scm (db-add-evaluation): Adapt.
All callers changed.
Diffstat (limited to 'bin/evaluate.in')
| -rw-r--r-- | bin/evaluate.in | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index 6c5a53f..239bdcc 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -60,8 +60,10 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (let* ((proc (module-ref %user-module 'hydra-jobs)) (thunks (proc store (assq-ref spec #:arguments))) (db (db-open)) - (spec-id (assq-ref spec #:id)) - (eval-id (db-add-evaluation db spec-id))) + (commit (assq-ref spec #:current-commit)) + (eval `((#:specification . ,(assq-ref spec #:id)) + (#:revision . ,commit))) + (eval-id (db-add-evaluation db eval))) (pretty-print (map (λ (thunk) (let* ((job (call-with-time-display thunk)) |