diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-26 16:11:02 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-27 14:17:09 +0200 |
| commit | 719c12686372142be6fe9de198999b527ba50b16 (patch) | |
| tree | c38c88008c005368f39442f137682cc74eb47909 | |
| parent | 67f074335fa4f0f6ac40ceb8bbf0fc60ecc8ee71 (diff) | |
| download | cuirass-719c12686372142be6fe9de198999b527ba50b16.tar cuirass-719c12686372142be6fe9de198999b527ba50b16.tar.gz | |
database: Remove 'db-delete-evaluation' procedure.
* src/cuirass/database.scm (db-delete-evaluation): Delete.
| -rw-r--r-- | src/cuirass/database.scm | 5 |
1 files changed, 0 insertions, 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))) |