diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-21 10:33:13 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-21 10:33:13 +0100 |
| commit | 60fac1bb58369dd42163f8b19cd528e57a1812ad (patch) | |
| tree | 0682984d14538032bf5651c233cc041af38e7414 | |
| parent | 3ba01555db9cc1a4d1086aaad42052cbf8350f30 (diff) | |
| download | qa-frontpage-60fac1bb58369dd42163f8b19cd528e57a1812ad.tar qa-frontpage-60fac1bb58369dd42163f8b19cd528e57a1812ad.tar.gz | |
Capture the URL in the guix-data-service-error
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 7 |
1 files 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))))))) |