Add delay logging to issue-data

1 files changed, 41 insertions, 23 deletions

diff --git a/guix-qa-frontpage/issue.scm b/guix-qa-frontpage/issue.scm
index eacd6e0..1af520d 100644
--- a/guix-qa-frontpage/issue.scm
+++ b/guix-qa-frontpage/issue.scm
@@ -23,7 +23,7 @@
   #:use-module (ice-9 threads)
   #:use-module (prometheus)
   #:use-module ((guix-build-coordinator utils)
-                #:select (with-time-logging))
+                #:select (with-time-logging call-with-delay-logging))
   #:use-module ((guix build syscalls)
                 #:select (set-thread-name))
   #:use-module (fibers)
@@ -213,45 +213,61 @@
       #:unwind? #t))
 
   (let* ((base-and-target-refs
-          (get-issue-branch-base-and-target-refs
-           number))
+          (call-with-delay-logging
+           get-issue-branch-base-and-target-refs
+           #:args (list number)))
          (derivation-changes-raw-data
           (if base-and-target-refs
               (call-with-data-service-error-handling
                (lambda ()
-                 (compare-package-derivations
-                  (compare-package-derivations-url
-                   base-and-target-refs
-                   #:systems %systems-to-submit-builds-for))))
+                 (call-with-delay-logging
+                  compare-package-derivations
+                  #:args
+                  (list
+                   (compare-package-derivations-url
+                    base-and-target-refs
+                    #:systems %systems-to-submit-builds-for)))))
               #f))
          (derivation-changes-data
           (if (and derivation-changes-raw-data
                    (not (assq-ref derivation-changes-raw-data 'exception)))
-              (derivation-changes
-               derivation-changes-raw-data
-               %systems-to-submit-builds-for)
+              (call-with-delay-logging
+               derivation-changes
+               #:args
+               (list
+                derivation-changes-raw-data
+                %systems-to-submit-builds-for))
               #f))
          (cross-derivation-changes-raw-data
           (if base-and-target-refs
               (call-with-data-service-error-handling
                (lambda ()
-                 (compare-package-derivations
-                  (compare-package-cross-derivations-url
-                   base-and-target-refs
-                   #:systems %systems-to-submit-builds-for))))
+                 (call-with-delay-logging
+                  compare-package-derivations
+                  #:args
+                  (list
+                   (compare-package-cross-derivations-url
+                    base-and-target-refs
+                    #:systems %systems-to-submit-builds-for)))))
               #f))
          (cross-derivation-changes-data
           (if (and cross-derivation-changes-raw-data
                    (not (assq-ref cross-derivation-changes-raw-data 'exception)))
-              (derivation-changes
-               cross-derivation-changes-raw-data
-               %systems-to-submit-builds-for)
+              (call-with-delay-logging
+               derivation-changes
+               #:args
+               (list
+                cross-derivation-changes-raw-data
+                %systems-to-submit-builds-for))
               #f))
          (builds-missing?
           (if derivation-changes-data
-              (builds-missing-for-derivation-changes?
-               (assoc-ref derivation-changes-raw-data
-                          "derivation_changes"))
+              (call-with-delay-logging
+               builds-missing-for-derivation-changes?
+               #:args
+               (list
+                (assoc-ref derivation-changes-raw-data
+                           "derivation_changes")))
               #t))
          (comparison-details
           (and
@@ -290,9 +306,11 @@
                            "query_parameters"))))
                      `((exception . ,(simple-format #f "~A" exn)))))
              (lambda ()
-               (revision-comparison
-                (revision-comparison-url
-                 base-and-target-refs)))
+               (call-with-delay-logging
+                revision-comparison
+                #:args (list
+                        (revision-comparison-url
+                         base-and-target-refs))))
              #:unwind? #t))))
 
     (values