From 24180197982af110892e41e30fa67559e79140e9 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Fri, 24 Feb 2017 18:27:29 +0100
Subject: [PATCH] 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 <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