diff options
Diffstat (limited to 'src/cuirass/database.scm')
| -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))) |