diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-22 10:33:30 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-22 10:43:09 +0100 |
| commit | 68b762851b0932b2497da9df4a57b278a9d8cb2c (patch) | |
| tree | 0763ce7611d0f41c864df358aca1d6363d1704f9 /guix-qa-frontpage | |
| parent | 45de4b0e41d448cd7441cbdfb81347631e459429 (diff) | |
| download | qa-frontpage-68b762851b0932b2497da9df4a57b278a9d8cb2c.tar qa-frontpage-68b762851b0932b2497da9df4a57b278a9d8cb2c.tar.gz | |
Use guix-data-service-error->sexp in issue-data
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/issue.scm | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/guix-qa-frontpage/issue.scm b/guix-qa-frontpage/issue.scm index a32574f..06192bd 100644 --- a/guix-qa-frontpage/issue.scm +++ b/guix-qa-frontpage/issue.scm @@ -179,35 +179,7 @@ (with-exception-handler (lambda (exn) (if (guix-data-service-error? exn) - `((exception . guix-data-service-invalid-parameters) - (invalid_query_parameters - . - ,(filter-map - (match-lambda - ((param . val) - (and=> - (assoc-ref val "invalid_value") - (lambda (value) - (let ((message - (assoc-ref val "message"))) - (cons - param - `((value . ,value) - (error - ;; Convert the HTML error messages - ;; to something easier to handle - . ,(cond - ((string-contains message - "failed to process revision") - 'failed-to-process-revision) - ((string-contains message - "yet to process revision") - 'yet-to-process-revision) - (else - 'unknown)))))))))) - (assoc-ref - (guix-data-service-error-response-body exn) - "query_parameters")))) + (guix-data-service-error->sexp exn) `((exception . ,(simple-format #f "~A" exn))))) thunk #:unwind? #t)) |