From 719c12686372142be6fe9de198999b527ba50b16 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Tue, 26 Jul 2016 16:11:02 +0200 Subject: database: Remove 'db-delete-evaluation' procedure. * src/cuirass/database.scm (db-delete-evaluation): Delete. --- src/cuirass/database.scm | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 5f616b5..13362a5 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -34,7 +34,6 @@ evaluation-exists? db-add-evaluation db-get-evaluation - db-delete-evaluation db-add-build read-sql-file read-quoted-string @@ -163,10 +162,6 @@ INSERT INTO Evaluations (derivation, job_name, specification)\ "Retrieve a job in database DB which corresponds to ID." (car (sqlite-exec db "SELECT * FROM Evaluations WHERE derivation='~A';" id))) -(define (db-delete-evaluation db id) - "Delete a job in database DB which corresponds to ID." - (sqlite-exec db "delete from Evaluations where derivation='~A';" id)) - (define-syntax-rule (with-database db body ...) "Run BODY with a connection to the database which is bound to DB in BODY." (let ((db (db-open))) -- cgit v1.2.3