diff options
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/database.scm | 22 | ||||
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 2 |
2 files changed, 23 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) diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 693ff65..204e041 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -301,6 +301,8 @@ (insert-log new-results) #f))))))))) + (delete-create-branch-for-issue-log database issue-number) + (if (not (assoc-ref patchwork-series "received_all")) (simple-format #t |