diff options
-rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 14 | ||||
-rw-r--r-- | scripts/guix-qa-frontpage.in | 2 |
2 files changed, 13 insertions, 3 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 9df7ba0..aa31a92 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -16,6 +16,7 @@ #:use-module ((guix build download) #:select (http-fetch)) #:use-module ((guix build utils) #:select (with-directory-excursion)) #:use-module (guix-qa-frontpage mumi) + #:use-module (guix-qa-frontpage database) #:use-module (guix-qa-frontpage git-repository) #:use-module (guix-qa-frontpage patchwork) #:use-module (guix-qa-frontpage guix-data-service) @@ -203,7 +204,7 @@ #:unwind? #t)) #:remove-after? #t))) -(define (start-manage-patch-branches-thread) +(define (start-manage-patch-branches-thread database) (define (dig alist . parts) (if (pair? alist) (match parts @@ -313,7 +314,16 @@ (create-branch-for-issue issue-number (number->string (assoc-ref patchwork-series - "id")))) + "id"))) + (clear-sqlite-cache-entry + database + 'issue-branch-base-and-target-refs + #:args (list issue-number)) + + (clear-sqlite-cache-entry + database + 'issue-patches-overall-status + #:args (list issue-number))) (lambda args (display (backtrace) (current-error-port)) (newline (current-error-port))))))))) diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 9debaf7..6ae3f52 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -132,7 +132,7 @@ "https://data.qa.guix.gnu.org")) (when (assq-ref opts 'manage-patch-branches) - (start-manage-patch-branches-thread)) + (start-manage-patch-branches-thread database)) (start-guix-qa-frontpage-web-server (assq-ref opts 'port) |