diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-02-14 18:22:25 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-02-14 18:22:25 +0000 |
| commit | 23139ac198f9faf35b2a675220b34ebf24b259a2 (patch) | |
| tree | a57c79c16771f846f5a203e7f8845da0d0d13432 /guix-qa-frontpage/guix-data-service.scm | |
| parent | 95f63224ac411a6e09d30a1e7fe3f56cdb8b6a30 (diff) | |
| download | qa-frontpage-23139ac198f9faf35b2a675220b34ebf24b259a2.tar qa-frontpage-23139ac198f9faf35b2a675220b34ebf24b259a2.tar.gz | |
Add response codes to the guix-data-service errors
Diffstat (limited to 'guix-qa-frontpage/guix-data-service.scm')
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 22 |
1 files changed, 16 insertions, 6 deletions
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 |