diff options
Diffstat (limited to 'guix-qa-frontpage/database.scm')
| -rw-r--r-- | guix-qa-frontpage/database.scm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm index 7aab813..af2da53 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -48,7 +48,8 @@ select-from-builds-to-cancel-later insert-create-branch-for-issue-log - select-create-branch-for-issue-log)) + select-create-branch-for-issue-log + delete-create-branch-for-issue-log)) (define-record-type <database> (make-database database-file reader-thread-channel writer-thread-channel @@ -617,3 +618,22 @@ WHERE issue = :issue" (sqlite-reset statement) result))))) + +(define (delete-create-branch-for-issue-log database issue) + (database-call-with-transaction + database + (lambda (db) + (let ((statement + (sqlite-prepare + db + " +DELETE FROM create_branch_for_issue_logs +WHERE issue = :issue" + #:cache? #t))) + (sqlite-bind-arguments + statement + #:issue issue) + + (sqlite-step statement) + (sqlite-reset statement)))) + #t) |