mirrors
/
cuirass
mirror of https://notabug.org/mthl/cuirass.git
1
0
Fork 0
Code Issues Releases Wiki Activity

database: Remove 'db-delete-evaluation' procedure. 

* src/cuirass/database.scm (db-delete-evaluation): Delete.
pull/3/head
Mathieu Lirzin 2016-07-26 16:11:02 +02:00
parent 67f074335f
commit 719c126863
No known key found for this signature in database
GPG Key ID: 0ADEE10094604D37
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/cuirass/database.scm
View File

@ -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)))