diff options
| -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))))))) |