diff options
Diffstat (limited to 'src/scm/webid-oidc/jwk.scm')
| -rw-r--r-- | src/scm/webid-oidc/jwk.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/scm/webid-oidc/jwk.scm b/src/scm/webid-oidc/jwk.scm index 9c1425a..e4f2119 100644 --- a/src/scm/webid-oidc/jwk.scm +++ b/src/scm/webid-oidc/jwk.scm @@ -229,13 +229,14 @@ (with-exception-handler (lambda (error) (raise-exception - (make-not-a-jwks) - (make-exception-with-message - (if (exception-with-message? error) - (format #f (G_ "cannot fetch a JWKS: ~a") - (exception-message error)) - (format #f (G_ "cannot fetch a JWKS")))) - error)) + (make-exception + (make-not-a-jwks) + (make-exception-with-message + (if (exception-with-message? error) + (format #f (G_ "cannot fetch a JWKS: ~a") + (exception-message error)) + (format #f (G_ "cannot fetch a JWKS")))) + error))) (lambda () (unless (eqv? (response-code response) 200) (fail (format #f (G_ "the request failed with ~s ~s") |