diff options
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 3c3caa3..74d75f7 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -2432,12 +2432,20 @@ LIMIT :limit" (call-with-worker-thread (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) - (sqlite-exec - db - (string-append - " -DELETE FROM unprocessed_hook_events WHERE id = " - (number->string id)))))) + (let ((statement + (sqlite-prepare + db + " +DELETE FROM unprocessed_hook_events WHERE id = :id" + #:cache? #t))) + + (sqlite-bind-arguments + statement + #:id id) + + (sqlite-step statement) + (sqlite-reset statement)))) + #t) (define-method (datastore-count-build-allocation-plan-entries (datastore <sqlite-datastore>)) |