Clear relevant cache entries when recreating branches

1 files changed, 12 insertions, 2 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)))))))))