From d0a5801e397335bb44d8033e5deddf02c1cc99c2 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Mon, 9 Jan 2017 01:29:48 +0100 Subject: database: db-add-derivation: Don't try to add a derivation twice. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This fixes the issue of having multiple identical derivations associated with an evaluation as reported by Ludovic Courtès at . * src/cuirass/database.scm (db-add-derivation): Ignore if JOB is already present in DB. --- src/cuirass/database.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 870cdc0..91133c2 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -1,5 +1,5 @@ ;;; database.scm -- store evaluation and build results -;;; Copyright © 2016 Mathieu Lirzin +;;; Copyright © 2016, 2017 Mathieu Lirzin ;;; ;;; This file is part of Cuirass. ;;; @@ -147,7 +147,7 @@ INSERT OR IGNORE INTO Specifications (repo_name, url, load_path, file, \ (define (db-add-derivation db job) "Store a derivation result in database DB and return its ID." (sqlite-exec db "\ -INSERT INTO Derivations (derivation, job_name, evaluation)\ +INSERT OR IGNORE INTO Derivations (derivation, job_name, evaluation)\ VALUES ('~A', '~A', '~A');" (assq-ref job #:derivation) (assq-ref job #:job-name) -- cgit v1.2.3