diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-22 13:20:41 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:12:40 +0200 |
| commit | a4c8bf0fd4bf03ca7ca3ff155db6dd33fb40aa62 (patch) | |
| tree | 9c7a6dc7ba34d28ff75cb6f8bb3b7ddd1ed1a219 | |
| parent | 8ad3ce782f9e75297bd420d651375843a0f7824e (diff) | |
| download | cuirass-a4c8bf0fd4bf03ca7ca3ff155db6dd33fb40aa62.tar cuirass-a4c8bf0fd4bf03ca7ca3ff155db6dd33fb40aa62.tar.gz | |
database: db-get-evaluation: Use 'sqlite-exec'.
| -rw-r--r-- | src/cuirass/database.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index da39bcc..ea2f3f1 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -111,12 +111,7 @@ database object." (define (db-get-evaluation db id) "Retrieve a job in database DB which corresponds to ID." - (let* ((stmt (sqlite-prepare - db - (format #f "select * from build where id=~A;" id))) - (res (sqlite-step stmt))) - (sqlite-finalize stmt) - res)) + (car (sqlite-exec db "select * from build where id=~A;" id))) (define (db-delete-evaluation db id) "Delete a job in database DB which corresponds to ID." |