diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-11 16:46:38 +0000 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-11 16:46:38 +0000 |
commit | 0f8a94bc223fd19891a9c5bb667f4ce3704ecb8d (patch) | |
tree | ee711e5bfb1124c7217456dbef313246654fcf86 | |
parent | 4d1d2103f88b5aec385bb2f5fb3d18cb1688d4ef (diff) |
Endpoint: fix exception raising.
-rw-r--r-- | src/scm/webid-oidc/server/endpoint/identity-provider.scm | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/src/scm/webid-oidc/server/endpoint/identity-provider.scm b/src/scm/webid-oidc/server/endpoint/identity-provider.scm index 57892c7..68bb154 100644 --- a/src/scm/webid-oidc/server/endpoint/identity-provider.scm +++ b/src/scm/webid-oidc/server/endpoint/identity-provider.scm @@ -341,26 +341,28 @@ (with-exception-handler (lambda (exn) (raise-exception - (make-web-exception 400 (W_ "reason-phrase|Bad Request")) - (make-user-message - (call-with-input-string - (format #f (W_ "<p>The client, <a href=~s>~a</a>, cannot be queried.</p>") - (uri->string client-id) - (uri->string client-id)) - xml->sxml)) - exn)) + (make-exception + (make-web-exception 400 (W_ "reason-phrase|Bad Request")) + (make-user-message + (call-with-input-string + (format #f (W_ "<p>The client, <a href=~s>~a</a>, cannot be queried.</p>") + (uri->string client-id) + (uri->string client-id)) + xml->sxml)) + exn))) (lambda () (make <client-manifest> #:client-id client-id))))) (with-exception-handler (lambda (exn) (raise-exception - (make-web-exception 400 (W_ "reason-phrase|Bad Request")) - (make-user-message - (call-with-input-string - (format #f (W_ "<p>The real client at <a href=~s>~a</a> does not control the advertised redirection URI.</p>")) - xml->sxml)) - exn)) + (make-exception + (make-web-exception 400 (W_ "reason-phrase|Bad Request")) + (make-user-message + (call-with-input-string + (format #f (W_ "<p>The real client at <a href=~s>~a</a> does not control the advertised redirection URI.</p>")) + xml->sxml)) + exn))) (lambda () (check-redirect-uri mf redirect-uri))) (values |