From 23139ac198f9faf35b2a675220b34ebf24b259a2 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 14 Feb 2023 18:22:25 +0000
Subject: Add response codes to the guix-data-service errors

---
 guix-qa-frontpage/guix-data-service.scm | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

(limited to 'guix-qa-frontpage')

diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm
index 93e2853..b33d9e7 100644
--- a/guix-qa-frontpage/guix-data-service.scm
+++ b/guix-qa-frontpage/guix-data-service.scm
@@ -14,6 +14,7 @@
   #:export (&guix-data-service-error
             guix-data-service-error?
             guix-data-service-error-response-body
+            guix-data-service-error-response-code
 
             patch-series-derivation-changes-url
             patch-series-derivation-changes
@@ -32,13 +33,17 @@
             branch-revisions-url
             branch-revisions
 
+            revision-details
+            revision-details-url
+
             revision-system-tests-url
             revision-system-tests))
 
 (define-exception-type &guix-data-service-error &error
   make-guix-data-service-error
   guix-data-service-error?
-  (response-body guix-data-service-error-response-body))
+  (response-body guix-data-service-error-response-body)
+  (response-code guix-data-service-error-response-code))
 
 (define* (patch-series-derivation-changes-url base-and-target-refs #:key systems)
   (string-append
@@ -69,7 +74,8 @@
                      400)
                   (assoc-ref json-body "error"))
               (raise-exception
-               (make-guix-data-service-error json-body))
+               (make-guix-data-service-error json-body
+                                             (response-code response)))
               (values (vector->list
                        (assoc-ref json-body
                                   "derivation_changes"))
@@ -96,7 +102,8 @@
                   (json-string->scm (utf8->string body))))
              (if (assoc-ref json-body "error")
                  (raise-exception
-                  (make-guix-data-service-error json-body))
+                  (make-guix-data-service-error json-body
+                                                (response-code response)))
                  json-body)))))
    #:times 6
    #:delay 5
@@ -118,7 +125,8 @@
                   (json-string->scm (utf8->string body))))
              (if (assoc-ref json-body "error")
                  (raise-exception
-                  (make-guix-data-service-error json-body))
+                  (make-guix-data-service-error json-body
+                                                (response-code response)))
                  (vector->list
                   (assoc-ref json-body "branches")))))))
    #:times 6
@@ -155,7 +163,8 @@
                      400)
                   (assoc-ref json-body "error"))
               (raise-exception
-               (make-guix-data-service-error json-body))
+               (make-guix-data-service-error json-body
+                                             (response-code response)))
               (values (vector->list
                        (assoc-ref json-body
                                   "derivation_changes"))
@@ -201,7 +210,8 @@
                   (json-string->scm (utf8->string body))))
              (if (assoc-ref json-body "error")
                  (raise-exception
-                  (make-guix-data-service-error json-body))
+                  (make-guix-data-service-error json-body
+                                                (response-code response)))
                  (vector->list
                   (assoc-ref json-body "revisions")))))))
    #:times 6
-- 
cgit v1.2.3