From 24180197982af110892e41e30fa67559e79140e9 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Fri, 24 Feb 2017 18:27:29 +0100 Subject: 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. --- bin/evaluate.in | 4 ++-- 1 file 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 -;;; Copyright © 2016 Mathieu Lirzin +;;; Copyright © 2016, 2017 Mathieu Lirzin ;;; Copyright © 2017 Mathieu Othacehe ;;; ;;; 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 -- cgit v1.2.3