From 60fac1bb58369dd42163f8b19cd528e57a1812ad Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 21 Jun 2024 10:33:13 +0100 Subject: Capture the URL in the guix-data-service-error --- guix-qa-frontpage/guix-data-service.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index af9fb0b..79c534e 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -18,6 +18,7 @@ guix-data-service-error? guix-data-service-error-response-body guix-data-service-error-response-code + guix-data-service-error-url guix-data-service-error->sexp @@ -55,7 +56,8 @@ make-guix-data-service-error guix-data-service-error? (response-body guix-data-service-error-response-body) - (response-code guix-data-service-error-response-code)) + (response-code guix-data-service-error-response-code) + (url guix-data-service-error-url)) (define (guix-data-service-error->sexp exn) `((exception . guix-data-service-invalid-parameters) @@ -120,7 +122,8 @@ (assoc-ref json-body "error")) (raise-exception (make-guix-data-service-error json-body - (response-code response))) + (response-code response) + url)) (values json-body response))))))) -- cgit v1.2.3