mirror of https://notabug.org/mthl/cuirass.git
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.improve-build-parallelism
parent
aebad5184d
commit
2418019798
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue