diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-05 11:22:24 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-05 11:22:24 +0100 |
| commit | f3e888bf34c8fdc5ef7cee67054c159264dee4a7 (patch) | |
| tree | 4b3753450147883bccb54f4d06a578cf42203c46 /guix-qa-frontpage | |
| parent | d724eff582eba579f1cc4a7761402a0c091db1d8 (diff) | |
| download | qa-frontpage-f3e888bf34c8fdc5ef7cee67054c159264dee4a7.tar qa-frontpage-f3e888bf34c8fdc5ef7cee67054c159264dee4a7.tar.gz | |
Stop catching exceptions in guix-data-service-request
As this doesn't help debugging.
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index 8e68cc7..c35881c 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -90,21 +90,16 @@ 404) #f (let ((json-body - (with-exception-handler - (lambda _ #f) - (lambda () - (match (response-content-encoding response) - (('gzip) - (call-with-zlib-input-port - body - json->scm - #:format 'gzip)) - (_ - (json->scm body)))) - #:unwind? #t))) + (match (response-content-encoding response) + (('gzip) + (call-with-zlib-input-port + body + json->scm + #:format 'gzip)) + (_ + (json->scm body))))) (if (or (> (response-code response) 400) - (not json-body) (assoc-ref json-body "error")) (raise-exception (make-guix-data-service-error json-body |