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
|
;;;; evaluate -- convert a specification to a job list
|
||||||
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
|
;;; 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>
|
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of Cuirass.
|
;;; 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)))
|
(thunks (proc store (assq-ref spec #:arguments)))
|
||||||
(db (db-open))
|
(db (db-open))
|
||||||
(commit (assq-ref spec #:current-commit))
|
(commit (assq-ref spec #:current-commit))
|
||||||
(eval `((#:specification . ,(assq-ref spec #:id))
|
(eval `((#:specification . ,(assq-ref spec #:name))
|
||||||
(#:revision . ,commit)))
|
(#:revision . ,commit)))
|
||||||
(eval-id (db-add-evaluation db eval)))
|
(eval-id (db-add-evaluation db eval)))
|
||||||
(pretty-print
|
(pretty-print
|
||||||
|
|
Loading…
Reference in New Issue