diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-15 17:46:18 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-13 19:52:49 +0200 |
commit | ae364ed0f7c20cb66b0ec5a6f9735c71b2456494 (patch) | |
tree | 0489a7caf8c5a020782548ac2b9d7488f32d3405 /src | |
parent | 7fd8439968a1f19152b715c3c47c89bdf7f348d7 (diff) |
Fix syntax error
Diffstat (limited to 'src')
-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") |