Make some tweaks around refreshing patches data

3 files changed, 19 insertions, 10 deletions

diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm
index bef358d..375fa6b 100644
--- a/guix-qa-frontpage/mumi.scm
+++ b/guix-qa-frontpage/mumi.scm
@@ -21,6 +21,8 @@
   #:use-module (ice-9 match)
   #:use-module (kolam http)
   #:use-module ((guix-data-service utils) #:select (chunk-for-each!))
+  #:use-module ((guix-build-coordinator utils)
+                #:select (retry-on-error))
   #:export (mumi-issue-tags
             mumi-issue-open?
 
@@ -57,13 +59,17 @@
     (chunk-for-each!
      (lambda (chunk)
        (let ((response
-              (graphql-http-get
-               "https://issues.guix.gnu.org/graphql"
-               `(document
-                 ,@(map (lambda (number)
-                          `(query (#(issue #:number ,number)
-                                   number title open severity tags)))
-                        chunk)))))
+              (retry-on-error
+               (lambda ()
+                 (graphql-http-get
+                  "https://issues.guix.gnu.org/graphql"
+                  `(document
+                    ,@(map (lambda (number)
+                             `(query (#(issue #:number ,number)
+                                      number title open severity tags)))
+                           chunk))))
+               #:times 3
+               #:delay 0)))
 
          (for-each
           (lambda (res)
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm
index 6bfa372..ee43b5b 100644
--- a/guix-qa-frontpage/patchwork.scm
+++ b/guix-qa-frontpage/patchwork.scm
@@ -150,8 +150,11 @@
      (patchwork-patches #:patchwork patchwork))
 
     (let* ((data (hash-map->list cons result))
-           (mumi-data (mumi-bulk-issues
-                       (map first data))))
+           (mumi-data
+            (call-with-delay-logging mumi-bulk-issues
+                                     #:args
+                                     (list
+                                      (map first data)))))
       (sort!
        (filter-map (lambda (data mumi)
                      (if (assq-ref mumi 'open?)
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index b14b106..d983205 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -516,7 +516,7 @@ port. Also, the port used can be changed by passing the --port option.\n"
 
   (define (refresh-data)
     (simple-format (current-error-port)
-                   "refreshing data...\n")
+                   "refreshing patch branches data...\n")
     (let* ((latest-series
             (with-sqlite-cache
              database