diff options
Diffstat (limited to 'guix-qa-frontpage')
| -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 |